5 adet option box seciniz. İsimlerini 5 adet il ismi yapınız. Forma bir buton koyunuz. Butona basıldığı zaman msgbox ile hangi il secildi ise onu gosteren programı "on n goto" dongusu ile yapınız.
Kod:
Dim sehir Private Sub Command1_Click() On sehir GoTo izmir, manisa, balıkesir, bursa, istanbul izmir: Option1.Value = False MsgBox ("İzmir şehri secilmiştir."): End manisa: Option2.Value = False sehir = MsgBox("Manisa şehri secilmiştir."): End balıkesir: Option3.Value = False MsgBox ("Balıkesir şehri secilmiştir."): End bursa: Option4.Value = False MsgBox ("Bursa şehri secilmiştir."): End istanbul: Option5.Value = False MsgBox ("İstanbul şehri secilmiştir"): End End Sub
__________________