Удаление картинки с элемента

Dim b As Integer, l As Integer
Dim mas(7, 7) As Integer
Dim nH As Integer
Dim mNap(1, 3) As Integer
Dim masH(1, 3) As Integer
Dim RG As Integer
Dim CG As Integer
 
Private Sub i00_Click()
click 0, 0
End Sub
 
Private Sub i02_Click()
click 0, 2
End Sub
 
Private Sub i04_Click()
click 0, 4
End Sub
 
Private Sub UserForm_Initialize() 
Dim i As Integer
Dim j As Integer
Dim st1 As String
mNap(0, 0) = -1: mNap(1, 0) = 0
mNap(0, 1) = 0: mNap(1, 1) = -1
mNap(0, 2) = 0: mNap(1, 2) = 1
mNap(0, 3) = 1: mNap(1, 3) = 0
nH = 0
 
For i = 0 To 3
    For j = 0 To 3
        st1 = "i" & i & j
      Controls(st1).Picture = ris2.Picture
      mas(i, j) = 1
    Next j
Next i
For i = 4 To 7
    For j = 4 To 7
        st1 = "i" & i & j
      
      Controls(st1).Picture = ris1.Picture
      mas(i, j) = 10
    Next j
Next i
End Sub
 
 
Sub click(R As Integer, C As Integer)
st1 = "i" & R & C
If Controls(st1).Picture = ris3.Picture Then
  st2 = "i" & RG & CG
  Controls(st2).Picture = LoadPicture("")
   
End If
If mas(R, C) = 0 Then Exit Sub
If mas(R, C) > 0 Then
For k = 0 To 3
    nR = R + mNap(0, k)
    nc = C + mNap(0, k)
    If nR < 0 Or nR > 7 Or nc < 0 Or nc > 7 Then GoTo m1
    
    If (mas(R + mNap(0, k), C + mNap(1, k))) > 0 Then
            If (mas(R + 2 * mNap(0, k), C + 2 * mNap(1, k))) = 0 Then
                    masH(0, nH) = R + 2 * mNap(0, k)
                    masH(1, nH) = C + 2 * mNap(1, k)
                    nH = nH + 1
            End If
    End If
m1:
Next k
End If
For l = 0 To nH - 1
 st1 = "i" & masH(0, nH - 1) & masH(1, nH - 1)
      Controls(st1).Picture = ris3.Picture
      RG = R
      CG = C
      
Next l
End Sub

Private Sub UserForm_Initialize()
    i02.Picture = ris3.Picture 'Or Set i02.Picture = ris3.Picture
End Sub
 
Private Sub i02_Click()
    If i02.Picture Is Nothing Then
       MsgBox "Картинка изволит отсутствовать"
    Else
       i02.Picture = LoadPicture() 'Or Set i02.Picture = LoadPicture("")
       i02.ZOrder 'Or Me.Repaint
    End If
End Sub