Declare Long FindWindow In WIN32API String, String
Declare Long SetWindowPos In WIN32API Integer,Integer,Integer,Integer,Integer,Integer,Integer
Declare Long ShowWindow In WIN32API Long, Long
HWnd = FindWindow( .Null. , "On-Screen Keyboard" )
If HWnd = 0
Run /N osk
HWnd = FindWindow( .Null. , "On-Screen Keyboard")
SetWindowPos( HWnd , -1 , 1, Sysmetric(22)-300 , Sysmetric(21) , 300 , 0 )
Else
ShowWindow( HWnd , 9 )
SetWindowPos( HWnd , -1 , 1, Sysmetric(22)-300 , Sysmetric(21) , 300 , 0 )
Endif