Error: Object doesn't support this property or method
All classes exists
All classes exists
Code:
Public Sub loadImages()
Dim pg As PixelGrabber
Dim mt As MediaTracker
Dim board As myImage
Dim i As Integer, j As Integer
Dim k As Integer
Dim l As Integer
'
'
Set pg = New PixelGrabber
Set mt = New MediaTracker
Set board = New myImage
board = createNewImage(board, mt, pg)
'
'
End Sub
Public Function createNewImage(Img As myImage, mt As MediaTracker, pg As PixelGrabber) As myImage
'
' Code works with no errors
'
Dim i As Integer
Dim j As Integer
Dim ai() As Integer
i = Img.getWidth
j = Img.getHeight
ReDim ai(i * j)
Set pg = New PixelGrabber
createNewImage = getImage(pg.grabPixels)
End Function