Program Membuat Menu Makanan menggunakan Visual Besic

      A. Tampilan form

     B. Listing

Private Sub Option1_Click()

 If Option1.Value = True Then

   Label1.Caption = "Soto Ayam"

   End If

End Sub

Private Sub Option2_Click()

 If Option2.Value = True Then

   Label1.Caption = "Rawon"

   End If

End Sub

Private Sub Option3_Click()

If Option3.Value = True Then

   Label1.Caption = "Gado-Gado"

   End If

End Sub

Private Sub Option4_Click()

If Option4.Value = True Then

   Label1.Caption = " Krengsengan"

   End If

End Sub

Private Sub Option5_Click()

If Option5.Value = True Then

   Label1.Caption = "Pecel Mediun"

   End If

End Sub

Private Sub Option6_Click()

If Option6.Value = True Then

   Label2.Caption = "Teh Manis"

   End If

End Sub

Private Sub Option7_Click()

If Option7.Value = True Then

   Label2.Caption = "ES Teh"

   End If

End Sub

Private Sub Option8_Click()

If Option8.Value = True Then

   Label2.Caption = "ES Jeruk"

   End If

End Sub

Private Sub Option9_Click()

If Option9.Value = True Then

   Label2.Caption = "Kopi"

   End If

End Sub