Contoh Visual Basic

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "I"
Text3.Text = 100000
Text4.Text = 50000
Text5.Text = 1000000
Case "II"