FORM MENGELILINGI FORM

 
 Source code dibawah ini merupakan salah
satu animasi pada form yaitu ada 2 Form dan salah
satu form tersebut mengelilingi form yang lain

Copy coding dibawah ini dan paste di Editor Form:

========================Script pada Form1=====
==================Hak Cipta Pembuat GOdzillaZ@Plasa.Com
!!!!!!!!Hak Cipta Harus Diikut sertakan Dalam Pemakaian Script ini!!!!!!!!!!!

Dim a As Long
Private Sub Form_Load()
 Form1.BorderStyle = 1
 Form1.Height = 3645
 Form1.Width = 4800
 Form2.Show
 Timer1.Enabled = True
 Timer1.Interval = 1
 Timer2.Enabled = False
 Timer2.Interval = 1
 Timer3.Enabled = False
 Timer3.Interval = 1
 Timer4.Enabled = False
 Timer4.Interval = 1
 Timer5.Enabled = False
 Timer5.Interval = 1
 Slider1.Max = 200
 Slider1.Min = 0
 Slider1.Value = 50
End Sub

Private Sub Tambahan()
 b = Slider1.Value
 a = a + b
 Label3.Caption = a
 Me.Caption = "Balok Keliling Ala GOdziLLaZ"
End Sub

Private Sub Timer1_timer()
 Label1.Caption = Form1.Top - 450 /Left Kiri
 Label2.Caption = Form1.Left - 200
 Form2.Left = Label2.Caption + a
 Form2.Top = Form1.Top - 450
 Call Tambahan
 If Label3.Caption > 5000 Then  3400
  a = 0
  Label3.Caption = a
  Timer1.Enabled = False
  Timer2.Enabled = True
 End If
End Sub

Private Sub Timer2_Timer()
 Call Tambahan
 Label1.Caption = Form1.Top - 450 /Left Kiri
 Label2.Caption = Form1.Left - 200
 Form2.Top = Label1.Caption + a
 Form2.Left = Form1.Left + 4800
 If Label3.Caption > 4050 Then
  a = 0
  Label3.Caption = a
  Timer2.Enabled = False
  Timer3.Enabled = True
 End If
End Sub

Private Sub Timer3_Timer()
 Call Tambahan
 Label1.Caption = Form1.Top + 3650    /Top bawah
 Label2.Caption = Form1.Left + 4800 /Left kanan
 Form2.Top = Label1.Caption
 Form2.Left = Label2.Caption - a
 If a > 6420 Then
  a = 0
  Label3.Caption = a
  Timer3.Enabled = False
  Timer4.Enabled = True
 End If
End Sub

Private Sub Timer4_Timer()
 Call Tambahan
 Label1.Caption = Form1.Top + 3600    /Top bawah
 Form2.Left = Form1.Left - 1640
 Form2.Top = Label1.Caption - a
 If a > 4030 Then
  a = 0
  Label3.Caption = a
  Timer4.Enabled = False
  Timer5.Enabled = True
 End If
End Sub

Private Sub Timer5_Timer()
 Call Tambahan
 Label1.Caption = Form1.Left - 1650
 Form2.Top = Form1.Top - 450
 Form2.Left = Label1.Caption + a
 If a > 1460 Then
  a = 0
  Label3.Caption = a
  Timer5.Enabled = False
  Timer1.Enabled = True
 End If
End Sub
===3buah label dan 5buah Timer==
=========Komponen Pada Form1====
=       - Label1                                        =
=       - label2                                        =
=       - label3                                        =
=       - Timer1                                        =
=       - Timer2                                        =
=       - Timer3                                        =
=       - Timer4                                        =
=       - Timer5                                        =
============================



============================== Script Pada Form2 ============================
Private Sub Form_Load()
 Form2.BorderStyle = 0
 Form2.Height = 1000
 Form2.Width = 1635
 Timer1.Enabled = True
 Timer1.Interval = 250
End Sub

Private Sub Label1_Click()
 End
End Sub
!!!!!!!!LABEL1 PD FORM2 HARUS DILETEKAN PADA POJOK KIRI ATAS FORM!!!!!!!!!!
Private Sub Timer1_timer()
 Form1.Show
 a = a + 1
 Form2.Caption = a
 Label1.Caption = a
 If a > 2 Then
  a = 0
  Label1.Caption = "Exit"
 Else
  Label1.Caption = "Balok"
 End If
End Sub
===1Buah Label dan 1 Buah Timer====
=========Komponen Untuk Form2======
=       - Label1                                                =
=       - Timer1                                              =
==============================