Muncul Melebar Kesamping - Animasi Form VB 6.0

Pada Tutorial VB 6.0 kali masih tentang membuat Animasi pada Form VB 6.0 yaitu Muncul Form dengan bergerak Melebar Kesamping. Jika anda telah membaca postingan kami tentang animasi melebar dari bawah, kini saatnya anda mempraktikan juga animasi bergerak Melebar Kesamping.

Silahkan ikuti langkah berikut ini :

Buka Komputer anda
Buka Aplikasi Visual Basic 6.0
Buatlah form seperti dibawah ini :

dan masukan Koding dibawah ini


Private Sub Form_Load()
Me.Width = 10
End Sub

Private Sub Timer1_Timer()
Me.Width = Me.Width + 100
Tengah
If Me.Width >= 4000 Then
    Timer1.Enabled = False
    Tengah
End If
End Sub

Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub


Note : Ubah interval Timer1 menjadi : 100
Run Form dan lihat hasilnya
Salam
Pintar VB | Tutorial Lengkap VB 6.0 dan VB .Net

Tweet