mislim da je ovo najjednostavnije:
image1 treba biti istih dimenzija kao i image2, mora biti na istom mjestu (jedan na drugom) i u opcijama kod Image1 visible mora biti na True, a Image2 visible na false. tako isto i za image3 i image4, image5 i image6, image7 i image8.......
CODE:
Dim v
Private Sub Form_Load()
v = 0
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case (v)
Case 1
Image2.Visible = False
Image1.Visible = True
v = 0
Case 2
Image4.Visible = False
Image3.Visible = True
v = 0
Case 3
Image6.Visible = False
Image5.Visible = True
v = 0
Case 4
Image8.Visible = False
Image7.Visible = True
v = 0
End Select
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False
Image2.Visible = True
v = 1
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 1
End Sub
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Visible = False
Image4.Visible = True
v = 2
End Sub
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 2
End Sub
Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5.Visible = False
Image6.Visible = True
v = 3
End Sub
Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 3
End Sub
Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image7.Visible = False
Image8.Visible = True
v = 4
End Sub
Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
v = 4
End Sub
::RE5PECT::