Удалить из массива все строки содержащие ноль

Dim n%, m%, mas%(), mas_tmp%(), j_max%(), j_neg%()
 
Private Sub Command1_Click()
Picture1.Cls
Randomize
n = InputBox("Ââåäèòå n")
m = InputBox("Ââåäèòå m")
ReDim mas(n - 1, m - 1)
ReDim j_max(n - 1)
For i = 0 To n - 1
    t = ""
    j_max(i) = 0
    Max = mas(i, 0)
    For j = 0 To m - 1
        mas(i, j) = Int(21 * Rnd() - 5)
        t = t & mas(i, j) & vbTab
    Next
    Picture1.Print t
Next
End Sub

k = (n - 1) / 2
For i = 0 To n - 1
For j = 0 To m - 1
    t = mas(k, j)
    mas(k, j) = mas(k + 1, j)
    mas(k + 1, j) = t
Next
Next
For i = 0 To n - 1
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next

Private Sub Command4_Click()
Picture2.Cls
ReDim j_neg(m - 1)
nn = 0
For j = 0 To m - 1
    j_neg(j) = 0
    For i = 0 To n - 1
        If mas(i, j) = 0 Then j_neg(j) = 1
    Next
    If j_neg(j) = 1 Then nn = nn + 1
Next
ReDim mas_tmp(n - 1, m - 1)
mas_tmp = mas
ReDim mas(n - 1, m + nn - 1)
j = 0
k = 0
Do
    If j_neg(k + j) = 1 Then
        k = k + 1
    Else
        For i = 0 To n - 1
            mas(i, j) = mas_tmp(i, j + k)
        Next
        j = j + 1
    End If
Loop While j <= m - nn - 1
 
For i = 0 To n - 1
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
m = m - nn
End Sub

Private Sub Command2_Click()
k = (n - 1) \ 2 'целочисленное деление
For j = 0 To m - 1
    t = mas(k, j)
    mas(k, j) = mas(k + 1, j)
    mas(k + 1, j) = t
Next
 
For i = 0 To n - 1
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
End Sub

Private Sub Command4_Click()
Picture2.Cls
k = 0
ReDim mas_tmp(n - 1, m - 1)
For i = 0 To n - 1
    For j = 0 To m - 1
        mas_tmp(i - k, j) = mas(i, j)
        If mas(i, j) = 0 Then k = k + 1: Exit For
    Next
Next
ReDim mas(n - 1 - k, m - 1)
mas = mas_tmp
For i = 0 To n - 1 - k
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
End Sub