Удалить все столбцы, в которых первый элемент четный - VB

Option Explicit
Dim a() As Integer
Dim n As Integer, m As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Picture1.Cls
Picture2.Cls
n = Val(Text1)
m = Val(Text2)
ReDim a(1 To n, 1 To m)
For i = 1 To n
  For j = 1 To m
    a(i, j) = Int(Rnd * 100)
    Picture1.Print a(i, j);
    Picture2.Print a(i, j);
  Next
  Picture1.Print
  Picture2.Print
Next
End Sub
 
Private Sub Command5_Click()
Dim i As Integer, j As Integer, k As Integer
Picture2.Cls
j = 1
d:
Do While j <= m
    If a(1, j) Mod 2 = 0 Then
         m = m - 1
         For i = 1 To n
                   For k = j To m
                       a(i, k) = a(i, k + 1)
                   Next
         Next
         GoTo d
     End If
         j = j + 1
Loop
 
ReDim Preserve a(1 To n, 1 To m)
 
For i = 1 To n
  For j = 1 To m
    Picture2.Print a(i, j);
   Next
  Picture2.Print
Next
End Sub