• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Four corners effect

Four corners effect

Four corners effect

Rate Four corners effect

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : [email protected]
' * Date             : 13/10/98
' * Time             : 10:24
' * Module Name      : Form_Module
' * Module Filename  : Form.bas
' **********************************************************************
' * Comments         : Four corners effect
' *
' **********************************************************************

Sub FourCorners(frm As Form)
   ' Cool Effect ex.) FourCorners Form1
   'Visit DiP's VB World At:
   'http://come.to/dipsvbworld
   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