Mouse over,image Change

[progeix]

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

[Serge]

If you just want to assign the picture from one picture box to another, then you don't have to use LoadPicture.


Picture1.Picture = Picrure2.Picture


You could use LoadPicture when you are using a path to the picrure.


Picture1.Picture = LoadPicture("C:\MyPicture.bmp)


------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819