При загрузке формы вывести в метках случайным образом четные цифры

Function evenRnd() As Integer
     evenRnd = Rnd() * 100
     If (evenRnd Mod 2) = 1 Then evenRnd = evenRnd + 1
End Function

Private Sub Form_Load()
    Randomize
    Label1.Caption = (Int(Rnd * 10) + 1) * 2
End Sub

Private Sub Form_Load()
For i = 1 To 10
Print 2 * i; " / "; 2; " = "; i
Next
End Sub

Private Sub Form_Load()
        Dim a As Integer, b As Integer, c As Integer
        Randomize
        a = (Int(Rnd * 10) + 1) * 2
        b = 2
        c = a / b
        Label1.Caption = CStr(a) & " : " & Str(b) & " = " & Str(c)
End Sub

Private Sub Command11_Click()
a = Text2.Text
Text1.Text = ""
Label2.Caption = a
Label4.Caption = Int(Rnd * 100) .. Вот  тут и не получается  сгенирировать выводит  ччисла которые  ни деляться  на 2
For b = 1 To 20
Text1.SetFocus
Next b
End Sub
 
Private Sub Command13_Click()
End
End Sub
 
Private Sub Command9_Click()
Text2.Text = "9"
End Sub
 
Private Sub Command1_Click()
Text2.Text = "1"
End Sub
 
 
Private Sub Command14_Click()
Form2.Show
Form1.Hide
End Sub
 
Private Sub Command12_Click()
If Val(Label4.Caption) / Val(Label2.Caption) = Val(Text1.Text) Then
Label6.Caption = "Ìîëîäåö! Îòâåò âåðíûé!"
Else
Label6.Caption = "Íåâåðíî. Ïîïðîáóé åùå ðàç"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
 
Private Sub Command2_Click()
Text2.Text = "2"
End Sub
 
Private Sub Command4_Click()
Text2.Text = "4"
End Sub
 
Private Sub Command3_Click()
Text2.Text = "3"
End Sub
 
Private Sub Command5_Click()
Text2.Text = "5"
End Sub
 
Private Sub Command6_Click()
Text2.Text = "6"
 
End Sub
 
Private Sub Command7_Click()
Text2.Text = "7"
End Sub
 
Private Sub Command8_Click()
Text2.Text = "8"
End Sub
 
Private Sub Form_Load()
Label5.Caption = "Ââåäèòå ÷èñëî òàáëèöû è íàæìèòå  êíîïêó ñëåäóþùèé ïðèìåð"
Label4.Caption = Fix(Rnd * 2)  //  Соответственно тут тоже  не получается  сгенирировать выводит  ччисла которые  ни деляться  на 2 или просто  например выводит 31  /  7  это не правильно
Label2.Caption = Fix(Rnd * 10)
Label3.Caption = "/"
Label1.Caption = "="
Text1.Text = ""
End Sub