by Waty Thierry (60 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 30th March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Four corners effect
' * 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