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

[progster]

День добрый!Не получается удалить картинку с элемента формы с помощью LoadPicture("") (процедура Sub click) . Помогите ,пожалуйста!


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

[EducatedFool]

Set Controls(st2).Picture = Nothing