by Demian Net (14 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(7 Votes)
Makes Your Form Have A Bubble Entrance!!!
API DeclarationsPublic Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "User32" _
(ByVal Hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
VBcoders'Make Your Form Name frm
Private Sub Form_Load()
frm.Show
Dim a As Integer
Dim b As Integer
Dim C As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim w As Integer
Dim X As Integer
Dim Y As Integer
Dim z As Integer
Call frm.Move(0, 0)
w = frm.Height
X = frm.Width
Y = frm.Top
z = frm.Left
a = 0
b = 0
C = w
d = X
e = Y
f = z
Do While a < frm.Height / 15 Or b < frm.Width / 15
a = a + 25
b = b + 25
e = e + 70
f = f + 70
If a > frm.Height / 15 Then a = a - 24
If b > frm.Width / 15 Then b = b - 24
Call frm.Move(f, e, d, C)
current = Timer
Do While Timer - current < 0.01
DoEvents
Loop
Call SetWindowRgn(frm.Hwnd, CreateEllipticRgn(0, 0, b, a), True)
Loop
current = Timer
Do While Timer - current < 1
DoEvents
Loop
Call SetWindowRgn(frm.Hwnd, CreateEllipticRgn(0, 0, 0, 0), True)
End Sub
