Private Declare Function GetCaretPos Lib "user32" (ByRef lpPoint As Point) As _
  Integer
 
Public Texttoshow As TextBox
 
 
Private Sub ShowText()
 
    Dim sz As Size = GetAreaSize()
 
    Dim tp As Point
    Dim ret As Integer = GetCaretPos(tp)
    Dim sp As Point
    sp = Texttoshow.PointToScreen(tp)
 
    Dim ct As Integer = Math.Max(0, sp.Y - sz.Height \ 2)
    Dim cl As Integer = Math.Max(0, sp.X - sz.Width \ 2)
 
    SetBitmap(New Point(cl, ct), sz)
 
End Sub