Тренажер таблицы умножения на Visual Basic

Private Sub Command1_Click()
 Dim a As Byte, b As Byte
 Randomize
 a = Int((9 * Rnd) + 1)
 b = Int((10 * Rnd) + 1)
Label2.Caption = a
Label3.Caption = b
End Sub
 
Private Sub Command2_Click()
c = Val(Text1)
i = Val(Label2)
j = Val(Label3)
If c = i * j Then
Label1.Caption = "Верно"
Else
Label1.Caption = "Попробуй ещё раз"
End If
End Sub
 
 
Private Sub Command3_Click()
Form2.Show
End Sub

Option Explicit
Dim WithEvents t As TextBox, WithEvents c As CommandButton
Dim l1, l2, tt
 
Private Sub t_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
 
Sub NewExample()
    l1.Caption = Fix(Rnd * 10) & "    X"
    l2.Caption = Fix(Rnd * 10) & "    ="
    tt = Timer: t = 0: t.SelLength = 1: t.SetFocus
End Sub
 
Private Sub c_Click()
    tt = Timer - tt
    If Val(l1) * Val(l2) = t.Text Then
        MsgBox "Правильно !" & vbLf & _
        "Время на обдумывание ответа составило " & Fix(tt) & " сек"
    Else: MsgBox "Неправильно"
    End If
    NewExample
End Sub
 
Private Sub Form_Activate()
    Randomize Timer
    NewExample
End Sub
 
Private Sub Form_Load()
    Const r = 500, rr = r / 2
    Dim i&, v
    Set l1 = Controls.Add("vb.label", "l1")
    Set l2 = Controls.Add("vb.label", "l2")
    Set t = Controls.Add("vb.textbox", "t")
    Set c = Controls.Add("vb.commandbutton", "c")
    For Each v In Array(l1, l2, t, c)
        With v: i = i + 90
            .Move i, rr, r, rr: .Visible = 1: i = i + r
        End With
    Next
End Sub