Hello this is a code i have

Private Sub heal_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If heal.Picture.Handle = 0 Then
heal = LoadPicture(clean.Picture)
Else
heal = LoadPicture(play.Picture)
End If
End Sub


It 'would' work but it says clean.picture and play.picture are not file names

when i try


Private Sub heal_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


If heal.Picture.Handle = 0 Then
heal = clean.Picture
Else
heal = play.Picture
End If
End Sub


It gives me a different error about procedure also if i try heal.picture = play.picture


I know i have all the images there, and they are images, but i can't make it change the picture