Private Declare Function HideCaret Lib "user32" _
  (ByVal hwnd As Long) As Long
 
Private Sub Text1_GotFocus()
  HideCaret Text1.hWnd
End Sub

Zitat:

Diese Anwendung konnte nicht gestartet werden, weil die Anwendungskonfiguration nicht korrekt ist. Zur Problembehandlung sollten Sie die Anwendung neu installieren.

Gruß
Marcus