MOSTRAR TECLADO VIRTUAL (tabtip.exe)

Private TabTipProcess As Process

Private Sub closeTabTip()

   If tdbConfig.enableVirtualKeyboard Then

      If Me.TabTipProcess IsNot Nothing AndAlso Me.TabTipProcess.HasExited Then

          TabTipProcess.Close()

      End If

    End If

End Sub

Private Sub openTabTip()

  If tdbConfig.enableVirtualKeyboard Then

     Dim progFiles As String = "C:\Program Files\Common Files\Microsoft Shared\ink"

     Dim onScreenKeyboardPath As String = System.IO.Path.Combine(progFiles, "TabTip.exe")

     Me.TabTipProcess = Process.Start(onScreenKeyboardPath)     

  End If

End Sub