<---A 7 1 P--->

Membuat program trial version ini sangat cocok bagi yang suka jualan program,jadi setiap program yang di buat memiliki batas waktu pemakaian 

pembuatanya pun mudah,bagi yang udah tingkat expert dalam visual basic bukan hal sulit tentunya.ok let coding 

pertama :

buka visual basic anda dan pilih standart.exe

lalu buat sebuah form dan 2 buah label, klik kanan pada form tersebut dan pilih view code

lalu isi dengan code berikut :

SPOILER:

CODE:

Private Sub Form_Load()
Dim x
Dim y
Dim jumlah
Dim sisa
MsgBox "Program ini hanya dapat dipakai 30 kali"
x = GetSetting("Y", "Y", "Y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Me.Label1.Caption = "Program ini sudah di gunakan sebanyak " _
& jumlah & " kali "
sisa = 30 - jumlah
Me.Label2.Caption = "Sisa pemakaian : " & sisa & " kali "
If jumlah > 30 Then
MsgBox "Batas Pemakaian Sudah habis " + vbCrLf + _
"Untuk dapat memakai program ini lagi," + vbCrLf + _
"      Anda harus mendaftar!!!"
Unload Me
End If
End Sub

Private Sub Form_Load()    Dim x    Dim y    Dim jumlah    Dim sisa        MsgBox "Program ini hanya dapat dipakai 30 kali"    x = GetSetting("Y", "Y", "Y")    jumlah = Val(x) + 1    SaveSetting "Y", "Y", "Y", jumlah    Me.Label1.Caption = "Program ini sudah di gunakan sebanyak " _                        & jumlah & " kali "    sisa = 30 - jumlah    Me.Label2.Caption = "Sisa pemakaian : " & sisa & " kali "    If jumlah > 30 Then        MsgBox "Batas Pemakaian Sudah habis " + vbCrLf + _              "Untuk dapat memakai program ini lagi," + vbCrLf + _              "      Anda harus mendaftar!!!"        Unload Me        End IfEnd Sub