• Home
 · 
• Graphics
 · 
• It is a code regarding how one can perform FORM Animation in VB.

It is a code regarding how one can perform FORM Animation in VB.

It is a code regarding how one can perform FORM Animation in VB.

Rate It is a code regarding how one can perform FORM Animation in VB.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Timer1.Enabled = True
    cmdclick = True
    Form1.Height = 5
    Form1.Width = 5
End Sub

Private Sub Command2_Click()
   Form2.Show
End Sub

Private Sub Form_Load()
    Timer1.Enabled = True
    Command1.Caption = "Fast Animation for Nice effect"
End Sub

Private Sub Timer1_Timer()
  
If cmdclick = False Then
  If Form1.Width <= 6000 Then
  'for horizontal animation
    Form1.Width = Form1.Width + 150
      If Form1.Width >= 6000 Then
        Timer1.Enabled = False
        Form1.Height = 5
        Timer1.Enabled = True
      End If
  Else
  'for vertical animation
     Form1.Height = Form1.Height + 150
      If Form1.Height >= 3135 Then
        Timer1.Enabled = False
      End If
  End If
Else 'cmdclick = true
         If Form1.Width <= 6010 Then
             Form1.Width = Form1.Width + 150
             If Form1.Height <= 3135 Then
                Form1.Height = Form1.Height + 150
             End If
         Else
             Timer1.Enabled = False
         End If
End If
End Sub