• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Moves the form around on the screen from corner to corner.

Moves the form around on the screen from corner to corner.

Moves the form around on the screen from corner to corner.

API Declarations


''Draw One command-button on Form.



Rate Moves the form around on the screen from corner to corner.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   
   If frm.WindowState <> 0 Then Exit Sub
   Dim X As Integer
   Dim Y As Integer
   Dim a As Integer
   Dim b As Integer
   Dim C As Integer
   Dim d As Integer
   Dim g As Integer
   Dim current As Double
   g = frm.Left
   b = frm.Top
   X = frm.Width
   Y = frm.Height
   C = g
   d = b
   current = Timer
   Do While Timer - current < 0.1
      DoEvents
   Loop
   For a = 0 To 10
      Call frm.Move(0, 0, X, Y)
      
      current = Timer
      Do While Timer - current < 0.1
         DoEvents
      Loop
      Call frm.Move(Screen.Width - frm.Width, 0, X, Y)
      
      current = Timer
      Do While Timer - current < 0.1
         DoEvents
      Loop
      Call frm.Move(Screen.Width - frm.Width, Screen.Height - frm.Height, X, Y)
      
      current = Timer
      Do While Timer - current < 0.1
         DoEvents
      Loop
      Call frm.Move(0, Screen.Height - frm.Height, X, Y)
      current = Timer
      Do While Timer - current < 0.1
         DoEvents
      Loop
   Next a
   Call frm.Move(g, b, X, Y)
End Sub

private sub command1_click()
call fourcourners
end sub