• Home
 · 
• Custom Controls/Forms/Menus
 · 
• form load effect

form load effect

form load effect

Rate form load effect

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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