BERIKUT CONTOH PROGRAM SEDERHANA :

Private Sub Combo1_Click()

If Combo1 = "ekonomi" Then

Text2 = 200000

Else

If Combo1 = "standar" Then

Text2 = 400000

Else

Text2 = 750000

End If

End If

End Sub

Private Sub Combo2_Click()

If Combo2 = "member" Then

    Text5 = 0.2 * Text4

Else

    Text5 = 0

End If

Text6 = Text4 - Text5

End Sub

Private Sub Text3_Change()

Text4 = Val(Text2) * Val(Text3)

End Sub

Private Sub Timer1_Timer()

Label5.Caption = Format(Now(), "HH:MM:SS")

End Sub

 

Private Sub Combo1_Click()

If Combo1 = "A" Then

    Text3 = 1000000

    Text4 = 500000

Else

If Combo1 = "B" Then

    Text3 = 1500000

    Text4 = 750000

Else

If Combo1 = "C" Then

    Text3 = 2000000

    Text4 = 1000000

Else

    Text3 = 2500000

    Text4 = 1500000

End If

End If

End If

End Sub

Private Sub Combo2_Click()

If Combo2 = "staff" Then

    Text9 = 0.25 * Text8

    Text10 = 0.25 * Text8

Else

    Text9 = 0

End If

Text10 = Val(Text8) - Val(Text9)

End Sub

Private Sub Text5_Change()

Text6 = 20000 * Text5

Text7 = 10000 * Text5

Text8 = Val(Text3) + Val(Text4) + Val(Text6) + Val(Text7)

End Sub

Private Sub Timer1_Timer()

Label14.Caption = Format(Now(), "HH:MM:SS")

Me.BackColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

End Sub