Failed to load class library

[Davider]

Execute successfully with the following code

from:
iGrid750_10Tec.iGrid ig3
to:
iGrid750_10Tec._iGrid ig3


Macro iGrid

Code:

Copy      Help

typelib iGrid750_10Tec {79B8840D-A9AF-43FE-B84C-C1DAF9C579B9} 1.0

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 224 136 "Dialog" "4"
;3 ActiveX 0x54030000 0x0 0 0 216 112 "iGrid750_10Tec.iGrid {23D63E82-5264-4425-834C-5E34F2F9E667}"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040C02 "*" "" "" ""

if(!ShowDialog(dd &sub.DlgProc 0)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,iGrid750_10Tec._iGrid ig3
,ig3._getcontrol(id(3 hDlg))
,ig3.DefaultRowHeight=42
,ig3.ColCount = 2
,ig3.RowCount = 5
,ig3.CellValue(1, 1) = "abc"
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1