Private Sub Combo1_Change() Combo1.List = "BERBER" Combo1.LYST = "MANAV" Combo1.List = "MÜHENDYS" Combo1.List = "DOKTOR" End Sub Private Sub Combo2_Change() Combo2.List = "YMAM BAYILDI" Combo2.List = "PYLAV" Combo2.List = "FASULYE" Combo2.List = "MERCYMEK ÇORBASI" End Sub Private Sub Combo3_Change() Combo3.List = "FENERBAHÇE" Combo3.List = "BE?YKTA?" Combo3.List = "GALATASARAY" Combo3.List = "TRABZONSPOR" End Sub Private Sub Command1_Click() MsgBox "HER KY?Y BE?YKTA?LIDIR KYMSE DE?Y?TYREMEZ" End Command1.Caption = "ONAYLA" End Sub Private Sub Form_Load() Form1.Caption = "HANGY TAKIM?" End Sub Private Sub Text1_Change() Text1.Text = "HANGY MESLEK?" Text1.Locked = True End Sub Private Sub Text2_Change() Text2.Text = "HANGY YEMEK?" Text2.Locked = True End Sub Private Sub Text3_Change() Text3.Text = "HANGY TAKIM?" Text3.Locked = True End Sub