• Home
 · 
• Windows API Call/Explanation
 · 
• Move a window to a specified point using MoveWindow API

Move a window to a specified point using MoveWindow API

Move a window to a specified point using MoveWindow API

API Declarations


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Rate Move a window to a specified point using MoveWindow API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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]