Review http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fox7help/html/err2031.asp and see VFP help on sys(2335) for details.


>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