Animasyon Form  

Formunuza 1 adet Timer ekleyin. Timer ın interval ini 10 yapın. Aşağıdaki kodları yazın.

Public Class Form1
   
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim ilkboy, sonboy, ilken, sonen
        Dim i, j
        ilkboy = 300
        sonboy = 600
        ilken = 300
        sonen = 600
        Me.Width = ilken
        Me.Height = ilkboy
        For i = ilkboy To sonboy
            Me.Height = i
            If Me.Height = sonboy Then
                For j = ilken To sonen
                    Me.Width = j
                    If j = sonen Then
                        Timer1.Enabled = False
                    End If
                Next j
            End If
        Next i
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 10
        Timer1.Enabled = True
    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır