the example code below is the one that i compiled as single-threaded com dll server.

The command bellow causes an error- "blah blah user interface operation not allowed this time."

oCom = createobject('keyboard.keyboard1')
ocom.show()

whats did i miss in my code. Please advise

Thanks in advance
********** sample code

DEFINE CLASS keyboard1 AS form OLEPUBLIC


Height = 205
Width = 313
Desktop = .F.
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Ahead Keyboard"
ControlBox = .F.
MaxButton = .F.
MinButton = .T.
MDIForm = .F.
TitleBar = 1
WindowState = 0
AlwaysOnTop = .T.
Name = "keyboard"


ADD OBJECT command1 AS commandbutton WITH ;
Top = 156, ;
Left = 72, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"


ADD OBJECT command2 AS commandbutton WITH ;
Top = 156, ;
Left = 156, ;
Height = 27, ;
Width = 84, ;
Caption = "Command2", ;
Name = "Command2"


ADD OBJECT command3 AS commandbutton WITH ;
Top = 96, ;
Left = 48, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command3"


PROCEDURE Load
PUBLIC wshshell
WshShell = CreateObject("wscript.Shell")
ENDPROC


PROCEDURE Init
_screen.Width = this.Width
_screen.Height = this.Height
_screen.AutoCenter = .t.
thisform.AutoCenter = .t.
thisform.Resize
ENDPROC


PROCEDURE command1.Click
WshShell.appactivate("ahead point of sale")
WshShell.sendkeys("1")
ENDPROC


PROCEDURE command2.Click
thisform.release()
_screen.Visible = .t.
CLEAR events
ENDPROC


PROCEDURE command3.Click
WshShell.appactivate("ahead point of sale")
WshShell.sendkeys("{enter}")
ENDPROC


ENDDEFINE