Use the Carriage Return/Line Feed constant (vbCrLf).


Code:
Private Sub Timer1_Timer() 

Dim PT As POINTAPI 
GetCursorPos PT 
Text1.Text = Text1.Text & "(" & PT.X & "," & PT.Y & ")" & vbCrLf

End Sub