Alt Alta 5 Tane Text Box Agyn ve 2 Tane de Command Buton Ekleyin... ___________________________________________ dim tes as integer dim st as integer dim sakla as integer dim uyary as string dim i as integer ________________________________ Private Sub Form_Load() End Sub ________________________________ Private Sub Command1_Click() tes = Text1.text sakla = tes Text4.text =sakla Text1.text="" End Sub ________________________________ Private Sub Command2_Click() tes =Text1.text st =Text2.text If st = sakla Then i = i + 1 uyary="Tebrikler i denemede bildiniz!" Text5.text = i End If If st sakla Then i = i + 1 Text2.text = "" uyary="Tahmininiz Bgygk!" Text5.text = i End If Text3.text = uyary End Sub