EXTRAER CONTENIDO (TEXTO) DE UN ARCHIVO PDF (con iTextSharp.dll)

Dim oReader As New iTextSharp.text.pdf.PdfReader(PdfFileName)
Dim its As New iTextSharp.text.pdf.parser.SimpleTextExtractionStrategy

DocumentText = iTextSharp.text.pdf.parser.PdfTextExtractor.GetTextFromPage(oReader, 1, its)


oReader.Close()

'http://sourceforge.net/projects/itextsharp/

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

DETECTAR ROTACIÓN PANTALLA

Inherits System.Windows.Forms.Form

Private Sub form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        AddHandler Microsoft.Win32.SystemEvents.DisplaySettingsChanged,
      AddressOf DetectScreenRotation

End Sub

Public Sub DetectScreenRotation(ByVal sender As System.Object,
      ByVal e As System.EventArgs)
        Dim theScreenBounds As Rectangle
        theScreenBounds = Screen.GetBounds(Screen.PrimaryScreen.Bounds)

        If (theScreenBounds.Height > theScreenBounds.Width) Then
           'acción para pantalla en horizontal
         Else
           'acción para pantalla en vertical
        End If
    End Sub
  

End Class