Pada Tips and Trik VB 6.0 kali ini adalah Cara Membuat Aplikasi Ganti Tanggal Komputer VB 6.0

Berikut Langkahnya :
Nyalakan Komputer Anda
Buka Aplikasi VB 6.0 anda
Kemudian Design Form seperti gambar diatas,

Masukan Koding dibawah pada Form Tersebut :
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

Silahkan jalankan Prohject VB 6.0 anda
Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)