Muncul Dari Bawah - 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 dari bawah. Jika anda telah membaca postingan kami tentang animasi menutup ke bawah, kini saatnya anda mempraktikan juga animasi Tutup form kekanan.

Lagi-lagi caranya sangat mudah, silahkan ikuti langkah berikut :

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



dan masukan Koding dibawah ini

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

Private Sub Timer1_Timer()
Me.Height = Me.Height + 100
Tengah
If Me.Height >= 3000 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

Kemudian Run Form yang anda buat diatas.

Salam
Pintar VB | Tutorial Lengkap VB 6.0 dan VB .Net

Tweet