MouseMove Example for Visual Basic

Private Sub LEADRasterContainerViewer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal lActionID As Long, ByVal lCount As Long)
Me.Caption = " Mouse Move "
If lActionID = 0 Then
   Dim Temp As LEADRaster
   Dim i As Integer
   For i = 0 To lCount - 1

      Set Temp = LEADRasterContainerViewer.OwnerActionImageList(i)
      ' Do what you want on this image
      ' .
      ' .
      ' .
   Next i
   End If
End Sub