بعض الاكواد في الفيجوال بيسك 6 :

•  لتغيير لون الخلفية تلقائيا نضع زر المؤقت ، بعد ذلك ننقر مرتين على زر المؤقت ، ثم نضع هذا الامر:
  Dim x As Integer
  x = Int(Rnd * 10)
  Form1.BackColor = QBColor(x)

• في بعض الأوقات قد نحتاج لتبطيل إمكانية غلق البرنامج أو إعادة تحميل الويندوز بإستخدام Ctrl + Alt + Del وخاصة في برامج الحفاظ على الشاشة ScreenSaver، الكود التالي يقوم بهذه العملية وكذلك يقوم بتبطيل الذهاب لقائمة إبدأ عن طريق الضغط على مفتاحي Ctrl + Esc.
  
  قم بنسخ الكود التالي للموديول Module :
  Private Declare Function SystemParametersInfo Lib _ "user32" Alias "SystemParametersInfoA" (ByVal uAction _ As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long
  
  Sub DisableCtrlAltDelete(bDisabled As Boolean)
  Dim X As Long
  X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
  End Sub
  وهكذا إلى إردت تبطيل مفعول Ctrl + Alt + Del قم بإستدعاء الدالة التالية:
  
  Call DisableCtrlAltDelete(True)
  وإذا أردت تمكينها فقم بكتابة الكود التالي :
  
  Call DisableCtrlAltDelete(False)

• فتح وغلق مسوق أقراص الليزر Cd Rom.
  
  قم بنسخ الكود التالي للموديول Module :
  
  DeclareFunction mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand as string,ByVal lpstrReturnString as string,ByVal uReturnLength as long,ByVal hwndCallback as long) as long
  
  لغلق مسوق الإسطوانات، قم بكتابة الكود التالي:
  
  retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
  
  لفتح مسوق الإسطوانات، قم بكتابة الكود التالي:
  
  retvalue = mciSendString("set CDAudio door open", returnstring,127, 0)
  
  تشغيل ملفات الصوت .Wav .
  
  قم بنسخ الكود التالي للموديول Module :
  
  Public Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  
  Public Sub PlayWav(path As String)
  Dim SafeFile As String
  file$ = Dir(path$)
  If file$ <> "" Then Call playa(WavFile$, SND_FLAG)
  End Sub
  
  لتشغيل أي ملف صوت قم بكتابة الأمر التالي، مع تغيير اسم ومسار ملف الصوت المراد تشغيله:
  
  Call PlayWavFile("c:\ElzohryProject\Quran\Fateh.wav")

• كيف يمكن عرض ملفات الفيديو في الفيجول بيسك ?
  
  أسهل طريقة لتشغيل ملفات الفيديو AVI أو الصوت Wav من خلال الفيجول بيسك هو استخدام اداة MciWndX control والتي تشحن مع نسخة الفيجول بيسك.
  
  
  كل ما ستفعلة هو أنك ستقوم بوضع الأداة على النموذج وتحديد مكانها بالضبط وتغيير بعض خصائصها السهلة الفهم ، وتحديد اسم ملف الفيديو أو الصوت المراد تشغيلة ويمكن عن طريق الكود عمل ذلك بالأمر التالي:
  
  MCIWnd1.filename = "c:\zohry.avi"
  MCIWnd1.Command "play"
  
  يجب أن تلاحظ أنه يجب تغيير اسم ومسار ملف الفيديو أو الصوت ليناسب ما هو لديك.
  
  بالطبع يفضل بالنسبة للصوت أن تقوم بإخفاء الاداة وقت التنفيذ حتى لا تظهر للمستخدم وذلك عن طريق تغيير الخاصية visible إلى القيمة False .

• في بعض الأحيان يقوم برنامج الإعداد الخاص بالبرنامج بتغيير بعض ملفات النظام والتي لن تعمل إلا بعد إعادة تحميل النظام، الآن يمكنك إعادة تحميل الويندوز أو حتى إغلاق الويندوز برمجيا.
  
  قم بنسخ الكود التالي للموديول Module :
  
  Public Const EWX_LOGOFF = 0
  
  Public Const EWX_SHUTDOWN = 1
  
  Public Const EWX_REBOOT = 2
  
  Public Const EWX_FORCE = 4
  
  Declare Function ExitWindowsEx Lib "user32" Alias _ "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _ As Long) As Long
  
  إذا أردت أن تعيد تحميل النظام، فاكتب الأمر التالي:
  
  t& = ExitWindowsEx(EWX_REBOOT, 0)
  
  إذا أردت أن إغلاق الويندوز، قم بكتابة الأمر التالي:
  
  t& = ExitWindowsEx(EWX_SHUTDOWN , 0)