Dim p As POINTAPI
    Dim hDcT As Long
    Dim R As RECT
    Dim x As Long
    Dim Y As Long
    Dim Word As String
    Dim x1 As Long
    Dim x2 As Long
    Dim aa As String
    Dim Lx As Long
    Dim Ly As Long
 
    hDcT = lbxOrt.Parent.hDC
    Call DrawText(hDcT, CStr("x"), -1, R, DT_CALCRECT)
    Call GetCaretPos(p)
 
    Lx = txtVon.Left + (p.x + SP) * Screen.TwipsPerPixelX
    If Lx + lbxOrt.Width > txtVon.Width Then
      Lx = txtVon.Width - lbxOrt.Width
    End If
 
    Ly = txtVon.Top + (p.Y + R.Bottom + SP) * Screen.TwipsPerPixelY
    If Ly + lbxOrt.Height > txtVon.Height Then
      Ly = txtVon.Top + p.Y * Screen.TwipsPerPixelY - lbxOrt.Height
    End If
 
    lbxOrt.Left = Lx
    lbxOrt.Top = Ly
 
    Word = FindWordPos(txtVon, x1, x2)
    If Word <> "" Then
      If LCase(Left$(Word, 1)) = "a" Then
        lbxOrt.Visible = True
      Else
        lbxOrt.Visible = False
      End If
    Else
      lbxOrt.Visible = False
    End If
 
    x = SendMessage(lbxOrt.hwnd, LB_FINDSTRING, -1, Word)
    If x <> -1 Then lbxOrt.TopIndex = x
    lbxOrt.ListIndex = x

mfg
peacemaker

e-mail: vbarchiv@web.de