by Karthikeyan (187 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 14th February 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Move a window to a specified point using MoveWindow API
API Declarations
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim rval, x, y, z As Long
Form1.AutoRedraw = True
x = 5: y = 5
For z = 1 To 50
rval = MoveWindow(Form1.hwnd, x, y, 100, 100, 1)
Sleep 100
x = x + 5: y = y + 5
Next z
For z = 1 To 50
rval = MoveWindow(Form1.hwnd, x, y, 100, 100, 1)
Sleep 100
x = x + 5: y = y - 5
Next z
End
End Sub
'Visit my Homepage at
'http://www.geocities.com/marskarthik
'http://marskarthik.virtualave.net
'Email: [email protected]