Exception in Property Page
I am getting an unexplained exception error when accessing a property page for
a user control, only when using the compiled (VB6) OCX. I have tracked the
exception down to a ReDim Preserve statement. The values in the ReDim, however,
are all valid. The code is:
' Module Level
Type POINTAPI
X as Long
Y as Lony
End Type
Dim pPoints() as POINTAPI
Dim nPoints as Integer ' Initialised to -1 in the
PropertyPage_Initialize Event
Sub Picture1_Click(Button......)
nPoints = nPoints + 1
ReDim Preserve pPoints(nPoints) ' This is where the exception occurrs
.
.
.
End Sub
It works fine in the IDE. Any ideas, anybody?
TIA
Mick
http://www.*-*-*.com/
ICQ# 19344626
