Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Long, y As Long)
     Debug.Print "x="; x \ Screen.TwipsPerPixelX
     Debug.Print "y="; y \ Screen.TwipsPerPixelY
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Long, y As Long)
     Printer.Font.Name = Me.Text1.Font.Name
     Printer.Font.Size = Me.Text1.Font.Size
     Debug.Print "x="; Fix((x * Screen.TwipsPerPixelX) / Printer.TextHeight("A")) + 1
     Debug.Print "y="; Fix((y * Screen.TwipsPerPixelY) / Printer.TextHeight("A")) + 1
End Sub