Sorce Code Aplikasi Ganti Tanggal Komputer VB 6.0

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Sub Command1_Click()
If MsgBox("Apakah ingin cetak Kartu Anggota?", vbYesNo) = vbYes Then
Dim lpSystemTime As SYSTEMTIME
    lpSystemTime.wYear = Combo3
    lpSystemTime.wMonth = Val(Combo2.Text)
    lpSystemTime.wDay = Combo1
    SetSystemTime lpSystemTime
    Else
    End If
End Sub

Private Sub Form_Load()
    Call MunculData
    'URL: http://www.belajarvb.com/
End Sub
Sub MunculData()
Combo1.Clear
Combo2.Clear
Combo3.Clear
For hari = 1 To 31
Combo1.AddItem hari
Next hari
For bulan = 1 To 12
Combo2.AddItem bulan & Space(5) & MonthName(bulan)
Next bulan
For i = 1 To 5
    Combo3.AddItem Year(Date$) + 1 - i
Next i
End Sub