Вывести на экран прямоугольник из нулей - VB

Private Sub Command1_Click()
Picture1.Cls
Dim a As Variant
Dim b As Integer
 
 
a = Text1.Text
b = 5
 
For i = 1 To a
For j = 1 To b
 
ReDim v(i, j) As Integer
v(i, j) = 0
Picture1.Print v(i, j);
Next
Picture1.Print
Next
End Sub