Source Code Membuat Program Trial

Private Sub Form_Load()
Dim T
Dim M
Dim Jumlah
Dim Sisa
MsgBox "Program Hanya Dapat Dipakai 10 Kali"
M = GetSetting("T", "T", "T")
Jumlah = Val(M) + 1
SaveSetting "T", "T", "T", Jumlah
Label1.Caption = "Program Telah Dipakai : " & Jumlah & " Kali"
Sisa = 10 - Jumlah
Label2.Caption = "Sisa Pakai : " & Sisa & " Kali"
If Jumlah > 10 Then
MsgBox "Batas Pakai Program Telah Habis" + vbCrLf + "Program Ditutup"
Unload Me
End If
End Sub