Tips And Trick Animasi Form VB

Contoh berikut akan memperlihatkan beberapa macam bentuk animasi form sederhana
Code: Select all
Anda cukup copy paste per-contoh untuk mencoba script ini…
Contoh 1:

Private Sub Form_Unload(Cancel As Integer)
Me.BackColor = vbWhite ‘ warna belakang putih
WindowState = 2 ‘ maximized-kan
DrawWidth = 4 ‘/ ketebalan
For i = 1 To 16000
Bawah = Bawah + 1
Kanan = Kanan + 1
PSet (Rnd * Kanan, Rnd * Bawah), QBColor(Rnd * 15)
Next i
End Sub