Display Table using do loop

Private Sub cmdClear_Click()
Form1.Cls
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdPrint_Click()
Dim N As Integer
N = 2
Do
'Print N & Space$(2);
Print N & Space$(2)

N = N + 2
Loop While N <= 20
Print
End Sub

Private Sub Form_Load()
Form1.FontSize = 24

End Sub