That sounds odd, I thought the keyboard would slide out of the way when you are done with it. But here a potential solution.
Insert the following script in General Declarations section for the project:
Code:
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any)
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Insert a pushbutton object into the application from which to close My-T-Soft keypad. Note: Recommended that this be inserted on an overview screen or a picture that is opened and available to the operator.
Select the pushbutton object with the mouse then right click and select Edit Script.
Insert the following script between the CommandButton1_Click and End Sub:
Code:
Dim hw& Dim cnt&
hw& = FindWindow(vbNullString, "My-T-Soft")
cnt& = SendMessage(hw&, &H10, 0, 0&)
Save the edited picture.
Activate My-T-Soft touchscreen and then switch the above picture to run; click on the pushbutton object and the My-T-Soft touchscreen application will be closed