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

Формулировка задачи:

Друзья подскажите пожалуйста. Мне нужно чтоб при загрузке формы метки Label выводились случайным образом четные цифры которые делятся на два. То есть мне нужно составить школьную таблицу на деления. У меня не получается вывести четные числа случайным образом там идут 2 4 6 8 10 12 14 16 18 20. Пробовал через Random ни чего не выходит. Пулучается что может высчкочить и 2 разделить на 3 и тд, а это не правильно. на умножения я сделал а вот на деление не получается. Надо чтоб именно при загрузке формы. Спасибо если подскажите.

Решение задачи: «При загрузке формы вывести в метках случайным образом четные цифры»

textual
                            Листинг программы 
                        

                            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
                        