Visual Basic - El texto siga al Mause

Hola a todos
mi pregunta es la siguiente en VB6 se puede hacer que el texto siga al mause gracias a todos
PD: si se puede me podrian informar como
gracias

No se si te refiras a esto pero prueba:
Un programa con un text1 y un timer1

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SetParent Lib \\\"user32\\\" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function GetCursorPos Lib \\\"user32\\\" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
x = SetParent(Text1.hWnd, 0)
End Sub

Private Sub Timer1_Timer()
Dim lpPoint As POINTAPI
x = GetCursorPos(lpPoint)
Text1.Left = lpPoint.x * Screen.TwipsPerPixelX
Text1.Top = lpPoint.y * Screen.TwipsPerPixelY
End Sub