[VB6] أفضل الطرق لتجميل برامجك

أولا  أفضل طريقة لتحكم في تشغيل الفلاش
أخواني هذا الكود بصراحة من أفضل الأكواد تقريبا لتشغيل ملفات الفلاش swf
أولا قم بالضغط على زري Ctrl + T
وأضف الأداة التالية shock wave flash
ثانياً: قم بإدراج الأداة في الفورم بالحجم اللي تبيه
ثالثاً: اضف 5 أزرار أوامر command button ومن ثم عدل الخاصية caption لتصبح كالتالي
الزر الأول تشغيل
الزر الثاني الأمام
الزر الثالث الخلف
الزر الرابع تكبير
الزر الخامس تصغير
والآن قم بوضع الكود التالي في المشروع
**************************************
في التعريف العام للفورمGeneral نضع هذا الكود
كود:
Private Sub ShockwaveFlash2_FSCommand)ByVal command As String, ByVal args As String( 
If )command = "Zoom"( Then 
ShockwaveFlash1.Zoom )args( 
Else 
MsgBox )args( 
End If 
End Subفي حدث التحميل للفورم Form_Load نضع هذا الكود
كود:
Private Sub Form_Load)( 
ShockwaveFlash1.Movie = App.Path + "\k.swf" 
End Subوفي حدث زر التشغيل نكتب
كود:
Private Sub Play_Click)( 
ShockwaveFlash1.GotoFrame )0( 
ShockwaveFlash1.Play 
End Subوفي حدث زر للأمام نكتب
كود:
Private Sub Forward_Click)( 
ShockwaveFlash1.Forward 
End Subوفي حدث زر للخلف نكتب
كود:
Private Sub Back_Click)( 
ShockwaveFlash1.Back 
End Subوفي حدث زر التكبير نكتب
كود:
)( Private Sub ZoomIn_Click
ShockwaveFlash1.Zoom )50( 
End Subوفي حدث زر التصغير نكتب
كود:
Private Sub ZoomOut_Click)( 
ShockwaveFlash1.Zoom )200( 
End Sub