فيجوال بيسك(كودلعمل مؤثرات للفورم)

طريقة رائعة لعملanimation للفورم

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اقدم لكم هدة الطريقة السهلة والرائعة لعمل animationللفورم
تعتمد هده الطريقة اساسا علي ال api
اولاقم بانشاءproject exe standard جديد
ضع هدا ال api فيgeneral declarations
Private Declare Function AnimateWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal dwTime As Long, _
ByVal dwFlags As Long) As Long
ضع في الحدث Form_Load
Dim a
a = AnimateWindow(Form1.hwnd, 2000, &H1)
قم بالتنفيد سترى ان الفورم سينطلق من اليسار الي اليمين وبخلفية دات لون اسود
مع العلم ان المتغير dwtime يمثل وقت ال animation ويمكنك تغييره كما تشاء
اما المتغير dwflagsفيحتمل القيم الاتية
h2&يحرك الفورم من اليمين الى اليسار
h4&يحرك الفورم من الاعلى الى الاسفل
h8&يحرك الفورم من الاسفل الى الاعلى
9يحرك الفورم من الاسفل يسار الى الاعلى يمين
10يحرك الفورم من الاسفل يمين الى الاعلى يسار
13يحرك الفورم منه الاعلى يسار الي الاسفل يمين
14يحرك الفورم من الاعلي يمين الى الاسفل يسار
h10&يحرك الفورم ابتداءا من الوسط وحتى النهاية
h80000&يحول الفورم من شفاف الى عادي
أرجو ان تكون الطريقة مفهومة للجميع والسلام عليكم ورحمة الله وبركاتة