Kod:
Private Sub Command1_Click() Form2.Show Form2.Caption = "1'ler" For i = 1 To 10 Form2.Print 1; "*"; i; "="; 1 * i Next i End Sub Private Sub Command2_Click() Form2.Show Form2.Caption = "2'ler" For i = 1 To 10 Form2.Print 2; "*"; i; "="; 2 * i Next i End Sub Private Sub Command3_Click() Form2.Show Form2.Caption = "3'ler" For i = 1 To 10 Form2.Print 3; "*"; i; "="; 3 * i Next i End Sub Private Sub Command4_Click() Form2.Show Form2.Caption = "4'ler" For i = 1 To 10 Form2.Print 4; "*"; i; "="; 4 * i Next i End Sub Private Sub Command5_Click() Form2.Show Form2.Caption = "5'ler" For i = 1 To 10 Form2.Print 5; "*"; i; "="; 5 * i Next i End Sub Private Sub Command6_Click() Form2.Show Form2.Caption = "6'lar" For i = 1 To 10 Form2.Print 6; "*"; i; "="; 6 * i Next i End Sub Private Sub Command7_Click() Form2.Show Form2.Caption = "7'ler" For i = 1 To 10 Form2.Print 7; "*"; i; "="; 7 * i Next i End Sub Private Sub Command8_Click() Form2.Show Form2.Caption = "8'ler" For i = 1 To 10 Form2.Print 8; "*"; i; "="; 8 * i Next i End Sub Private Sub Command9_Click() Form2.Show Form2.Caption = "9'lar" For i = 1 To 10 Form2.Print 9; "*"; i; "="; 9 * i Next i End Sub

__________________