Automation error using WinAPI SendMessage call in ActiveX control under VB6.0
Posted on 2004-10-22
I am trying to create a simple activeX control consisting of two listboxes. I need to set tab stops in one of the listboxes. I am using the following code in the ActiveX control:
<<< iN GENERAL SECTION>>>>
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Public Sub SetDisplaylistTabs()
Dim TabArray(4) As Long
Dim lcnt As Long
TabArray(0) = 5
TabArray(1) = 20
TabArray(2) = 60
TabArray(3) = 100
lcnt = 4
SendMessage DisplayList.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&
SendMessage DisplayList.hwnd, LB_SETTABSTOPS, lcnt, TabArray(0)
The second call to "SendMessage" generates the following error:
Run-Time error: '-2147417848 (80010108)'
The object invoked has disconnected from its clients
The above code works fine in a regular VB6.0 program - have tested it. Why is it causing this error in an activeX control?
Any assistance would be greatly appreciated.
Best regards, Dave Melnyk