'Open New Project. Add a Module. 'On the Form Put 2 labels , change their caption become : X and Y. 'Put 2 Text Box, set Text properties to zero space. 'Write down this public declaration in module section. Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 'Write down this codes in Form Private Sub Command1_Click() t& = SetCursorPos(Text1.Text, Text2.Text) End Sub