ahmadfononi
معاونت انجمن
برنامه زیر هنگام load فرم شما را به صورت متحرک وارد صفحه میکند.
Option Explicit
Private Const AW_HOR_HOSTIVE = &HF
Private Const AW_VER_NEGATIVE = &H8
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwtime As Long, ByVal dwflags As Long) As Boolean
Private Sub Form_Load()
Text.Visible = False
AnimateWindow Me.hwnd, 200, AW_HOR_HOSTIVE
End Sub
Option Explicit
Private Const AW_HOR_HOSTIVE = &HF
Private Const AW_VER_NEGATIVE = &H8
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwtime As Long, ByVal dwflags As Long) As Boolean
Private Sub Form_Load()
Text.Visible = False
AnimateWindow Me.hwnd, 200, AW_HOR_HOSTIVE
End Sub