Controlli - Toglie il cursore dal Form

Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
Text1.SetFocus
HideCaret (Text1.hwnd)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
ShowCaret (Text1.hwnd)
End Sub