|
-
Nov 4th, 1999, 09:48 AM
#1
Thread Starter
Addicted Member
Declare Function SetCursorPosition& Lib "user32" _
(ByVal x As Long, ByVal y As Long)
Sub setpos(txt1 As TextBox, txt2 As TextBox)
If txt2.Text = "200" Then
txt1.Text = txt1.Text + 1
txt2.Text = "0"
Else
If txt1.Text = "200" Then
txt1.Text = "0"
Else
t& = SetCursorPos(txt1.Text, txt2.Text)
End If
End If
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|