Option Compare Database
Option Explicit
Dim strImageName As String
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If strImageName <> "Image1" Then
strImageName = "Image1"
Me.Image1.PictureData = Me.Image2.PictureData
Me.Repaint
End If
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If strImageName = "Image1" Then
strImageName = ""
Me.Image1.PictureData = Me.Image3.PictureData
Me.Repaint
End If
End Sub