kumpulan Effek form di visual basic

'(KEBAWAH)
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 50
End Sub
================================================
'(KEATAS)
Private Sub Form_Unload(Cancel As Integer)
Do
DoEvents
Form1.Top = Trim(Str(Int(Form1.Top) - 50))
Loop Until Form1.Top > Form1.Width
End Sub
============================================
'(Bergerak ke atas)
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
=============================================
'(KESAMPING)
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5
Me.Move Me.Top, Me.Left
DoEvents
Loop Until Me.Left & gt > Screen.Height
End Sub
==============================================
'(bergerak ke kiri)
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
============================================
'(Kesamping Atas)
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left - 5
Me.Move Me.Top, Me.Left
DoEvents
Loop Until Me.Left & gt > Screen.Height
End Sub



Comments

Popular posts from this blog

CARA MENYIMPAN GAMBAR / FOTO KEDALAM DATABASE ACCESS DI DELPHI

Menggabungkan edit dan button Seperti Tombol Pencarian website, Dengan delphi

cara memnculkan data analysis di microsoft excel