Создать проект, который в форме будет просвещать 5 случайные неповторимые чётные цифры - VB

Option Explicit
 
' Очень полезная процедура обмена переменных
' пригодится любым реальным программерам
Private Sub Swap(ByRef var1 As Integer, ByRef var2 As Integer)
Dim var As Integer
  var = var1
  var1 = var2
  var2 = var
End Sub
 
' А это сам код, работает с кнопки
Private Sub Command1_Click()
Dim r As Integer, i As Integer, A(36) As Integer
' Наполняем барабан шарами
For i = 1 To 36
   A(i) = i
Next
' Перемешиваем шары в барабане
Randomize Timer
For i = 36 To 1 Step -1
    r = 36 * Rnd()
    Swap A(i), A(r)
Next
'показываем 5 шаров ( или сколько надо )
For i = 1 To 5
Print A(i)
Next
 
End Sub