Visual basicde formu efektli olarak kapatmak için verdiğim kodu Formun arkasına yazmanız lazım :
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Me.WindowState = 0
Do
Me.Top = Me.Top + 10
Me.Left = Me.Left + 10
Me.Width = Me.Width - 20
Me.Height = Me.Height - 20
Loop Until Me.Top = Screen.Height
End Sub
Ve Formu kapatırken efektli olarak kapanır ...
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Me.WindowState = 0
Do
Me.Top = Me.Top + 10
Me.Left = Me.Left + 10
Me.Width = Me.Width - 20
Me.Height = Me.Height - 20
Loop Until Me.Top = Screen.Height
End Sub
Ve Formu kapatırken efektli olarak kapanır ...
