Contoh Program Visual Basic Sederhana

Private Sub Combo1_Click()
Select Case Combo1.Text
Case 5000
Text2.Text = 6500
Case 10000
Text2.Text = 11000
Case 20000
Text2.Text = 21000
Case 50000
Text2.Text = 49500
Case 100000
Text2.Text = 98000
End Select
End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) - Val(Text2.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem "5000"
Combo1.AddItem "10000"
Combo1.AddItem "20000"
Combo1.AddItem "50000"
Combo1.AddItem "100000"
End Sub

program kuhhhh.......