by Harish.A.S (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 4th January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
form load effect
Private Sub CommandButton1_Click()
Timer6.Enabled = True
End Sub
Private Sub Form_DblClick()
Unload Me
End Sub
Private Sub Form_Load()
Form1.Height = 35
Form1.Width = 35
Form1.Top = 0
Form1.Left = 0
CommandButton1.Height = 400
CommandButton1.Width = 200
Label1.Height = 35
Timer1.Enabled = True
Dim i
i = 1
Label1.Height = 240
Label1.Width = 245
Label2.Height = 240
Label2.Width = 245
Text1.Height = 288
Text1.Width = 168
'Label3.Caption = Form1.Width
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Image1.Move X, Y
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer6.Enabled = True
'Dim i, a, c
'For i = 0 To 9500 Step 10
'Form1.Width = i '* (Rnd * 100) / 2
'Form1.Height = i '* (Rnd * 100) / 2
'With Form1
' a = Rnd * 1000
' c = Rnd * 1000
' .Top = a - (ScaleHeight - .Height) / 2 '4 - 1
' .Left = c - (ScaleWidth - .Width) / 2 '4 - 1
'End With
'Next
End Sub
Private Sub Timer1_Timer()
'Image1.Height = Rnd * 5000
'Image1.Width = Rnd * 5000
'Text1.Height = Text1.Height - 25
'Image1.Height = Image1.Height - 50
'Label2.Height = Label2.Height - 25
'TextBox1.Height = TextBox1.Height - 25
Form1.Height = Form1.Height + 100
If Form1.Height >= 7000 Then
Form1.Height = 7000
Form1.Width = Form1.Width + 100
If Form1.Width >= 9700 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End If
End Sub
Private Sub Timer2_Timer()
Label1.Visible = True
Label1.Width = Label1.Width + 25
If Label1.Width >= 2219 Then
Timer3.Enabled = True
Timer2.Enabled = False
'.Enabled = True
End If
End Sub
Private Sub Timer3_Timer()
Text1.Visible = True
Text1.Width = Text1.Width + 20
If Text1.Width >= 1500 Then
Timer3.Enabled = False
Timer4.Enabled = True
End If
End Sub
Private Sub Timer4_Timer()
Label2.Visible = True
Label2.Width = Label2.Width + 20
If Label2.Width >= 2542 Then
Timer4.Enabled = False
Timer5.Enabled = True
End If
'Label3.Caption = Form1.Width
End Sub
Private Sub Timer5_Timer()
CommandButton1.Visible = True
CommandButton1.Width = CommandButton1.Width + 10
'CommandButton1.Height = CommandButton1.Height + 10
If CommandButton1.Width >= 1415 Then
Timer5.Enabled = False
End If
End Sub
Private Sub Timer6_Timer()
Form1.Width = Form1.Width - 10
'Form1.Height = Form1.Height - 10
If Form1.Width <= 75 Then
Form1.Width = 75
Form1.Height = Form1.Height - 10
If Form1.Height <= 150 Then
Unload Me
'And Form1.Width <= 450 Then
End If
End If
End Sub