Fatal Error on Mouse-Move

[BPinkerton]

Hi.
Suddenly I am getting 100's of error 91 messages when I install a release version (my program) on some computers. This code seems to be the problem:

Private Sub oGdViewer_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nAlpha As Byte
Dim nRed As Byte
Dim nGreen As Byte
Dim nBlue As Byte
Dim nARGBColor As Long
nARGBColor = ogdpicture.PixelGetColor(oGdViewer.GetMouseX, oGdViewer.GetMouseY)
Call ogdpicture.ColorGetARGBFromARGBValue(nARGBColor, nAlpha, nRed, nGreen, nBlue)
End Sub

As when it does occur it does so whenever the mouse is moved over gdPicture/gdViewer. The problem does not occur on all computers (does on many/most) and never occurs on my development computer.

Any ideas anyone????

[Loïc]

Bill I think you need to add this line of code

Code: Select all

oGdPicture.SetNativeImage (oGdViewer.GetNativeImage)

into the oGdViewer_PageChange() Event...


==>

Code: Select all

Private Sub oGdViewer_PageChange()
   oGdPicture.SetNativeImage (oGdViewer.GetNativeImage)
End Sub

Loïc