The following code works nicely for me:
|
Jabaco Source
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Public Sub Picture1_MouseEntered()
Picture1.Picture= HutblauGif
Picture1.Refresh
End Sub
Public Sub Picture1_MouseExited()
Picture1.Picture= HutgelbGif
Picture1.Refresh
End Sub
Public Sub Form_Load()
Picture1.Picture= HutgruenGif
Picture1.Refresh
End Sub
|
Make sure to add graphics files as "resources" to the project.
You can then assign the image to the "Picture" property of your control.
Greetings!
A1880