Contoh Coding Select Case

Maker : Yoan Colly

Private Sub Command1_Click()
Select Case Text1.Text
Case "S"
kb = "Sakura"
ab = "Jepang"
Case "A"
kb = "Anggrek"
ab = "Indonesia"
Case "L"
kb = "Lavender"
ab = "Belanda"
Case "M"
kb = "Mawar"
ab = "Inggris"
End Select
Label5.Caption = kb
Text2.Text = ab
End Sub



Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
End Sub

Private Sub End_Click()
End
End Sub