Membuat Program Trial Di Visual Basic 6.0

Hallo Sobat CT Apa kabar?
Kali ini saya akan membahas cara membuat program trial di visual basic ..

Untuk langkah pertama buka project yang akan sobat buat menjadi trial

Kedua masukan coding ini di form

Private Sub Form_Load()
Dim tglterakhir As Date
tglterakhir = CDate("2013-02-01")
If Date >= tglterakhir Then
    MsgBox "Masa trial sudah habis"
    End
End If
End Sub

Untuk tanggal dan pesan waktu habisnya silahkan sobat rubat sesuai keinginan sobat semua :D ..

Semoga bermanfaat

2 comments: