افکت دادن به فرم

[[Moosa]]

سلام
برای افکت دادن به فرم از کد های پایین استفاده کنید

Private Declare Function AnimateWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Const AW_FADE = &H80000
Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_SLIDE = &H40000
Private Sub Command1_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 1024, AW_FADE)
Form2.Show
End Sub

Private Sub Command2_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 255, AW_HOR_POSITIVE)
Form2.Show
End Sub

Private Sub Command3_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 255, AW_HOR_NEGATIVE)
Form2.Show
End Sub

Private Sub Command4_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 255, AW_CENTER)
Form2.Show
End Sub

Private Sub Command5_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 255, AW_SLIDE)
Form2.Show
End Sub

Private Sub Command6_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 255, AW_VER_POSITIVE)
Form2.Show
End Sub

Private Sub Command7_Click()
Unload Form2
m = AnimateWindow(Form2.hwnd, 255, AW_VER_NEGATIVE)
Form2.Show
End Sub

میتونید مثالش رو هم دانلود کنید.