مطالب درخواستی
مجبور کردن Common Dialog به ذخیره کردن فایل ها در یک درایو خاص
ابتدا یک فرم خالی درست کنید و یک کنترل Common Dialog روی ان قرار دهید و سپس یک Command Button
کد زیر را در رویداد کلیک کامند باتون قرار دهید
Private Sub Command1_Click()
Call Save_driveA
End Sub
یک TextBox روی فرم قرار دهید
بعد تابع جدیدی به نام Save_DriveA مثل زیر درست کنید
Function Save_DriveA()
Dim x As Integer
Do
commondialog1.Action = 2 ' save file
If UCase(Left(commondialog1.FileName, 1)) <> "A" Then
MsgBox "YOu Must Save File to Drive A only"
Else
Exit Do
End If
DoEvents
Loop
x = FreeFile
Open commondialog1.FileName For Output As #x
Print #x, Text1.Text
Close #x
MsgBox "File has been saved to A"
End Function

ِDoEvents چیست؟
وقتي ما پشت سر هم و بدون وقفه يه کاري رو انجام ميديم برنامه ديگه چيز ديگه اي رو پردازش نمي کنه. بنابراين ما با اين عبارت(DoEvents) به کامپايلر ميگيم در هر بار انجام دستورات حلقه، دستورات ديگه اي مانند فشرده شدن کليد، کليک ماوس و ... رو هم پردازش کنيم.برای امتحانش هم یک برنامه بنویسید که داخلش یک حلقه باشد و یک بار بدون DoEvents اجراش کنید و بار دیگر در یک خط جدید عبارت DoEvents رو تایپ کنید و بعد اجراش کنید.

Randomize Timer چیست؟
فرض کنید که شما میخواهید یک برنامه بنویسید که با هر بار اجرا شدن یا زدن یک دکمه یک عدد تصادفی را خودش انتخاب کند و ادامه ماجرا. خوب حالا با هر بار اجرای برنامه یا زدن دکمه همون اعداد تصادفی که در سری های قبلی ایجاد شده بود تولید میشوند که با قرار دادن عبارت Randomize Timer در ابتدای کدهای برنامه دیگر این مشکل نخواهد بود چون اون عدد تصادفی با ساعت داخلی ماشین انتخاب خواهد شد.

ترفند
شما میتوانید با زدن همزمان کلیدهای کنترل و Space یک منوی فوری در قسمت کد وی بی اجرا کنید که برای ساده کردن کد نویسی کاربرد دارد
مثلا شما یک فرم به نام frmoption دارید که میتوانید در قسمت کد ویندو فقط عبارت frmop را بنویسید و سپس کلیدهای کنترل و space را بزنید که این پنجره عبارت شما را تشخیص خواهد داد و ان را تکمیل خواهد کرد که شما با تمرین میتوانید از ان در جاهای دیگر هم استفاده کنید
کاربرد دیگر : وقتی وارد کد ویندو میشوید این کلیدها را بفشارید و میبینید که تمام توابع داخلی و ... ویژوال بیسیک نمایش داده خواهد شد که Doevents هم میتوان با این روش در بین کدها قرار داد که این هم یکی از توابع داخلی ویژوال بیسیک است
موفق باشید

یک ترفند فوق العاده فوق العاده کاربــــــــــــــــــــردی
این ترفند رو خودم کشف کردم و در اختیار دوستان خوبم میگذارم
با این ترفند خود ویژوال بیسیک 6 به سبک Xp در میاید (دقت کنید گفتم ویژوال بیسیک نه برنامه هاش)
ابتدا یک فایل متنی از نوع Text documents در دسکتاپ خود درست کنید و این کدها را در داخل ان کپی کنید

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

<assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0" name="mash"/>

<description>Enter your Description Here</description>

<dependency>

<dependentAssembly>

<assemblyIdentity

type="win32"

name="Microsoft.Windows.Common-Controls" version="6.0.0.0"

language="*"

processorArchitecture="*"

publicKeyToken="6595b64144ccf1df"

/>

</dependentAssembly>

</dependency>

</assembly>

و سپس ان را با نام vb6.exe.MANIFEST ذخیره کنید اما...
یک نکته : بعد از ذخیره کردن فایل به قسمت my computer بروید و از منوی Tools زیر منوی Folder Option را اجرا کنید و وارد زبانه View شوید و در قسمت پایین علامت عبارت hide Extensions for known file types را بردارید و سپس پنجره را ببندید و به دسکتاپ برگردید و روی نام فایلی که ساخته بودی فقط کلیک کنید و عبارت .txt را از قسمت اخر نام فایل پاک کنید و اینتر کنید خوب حالا قسمت اخر کار که باید این فایل رو در جایی که ویژوال بیسیک را نصب کردید یعنی در Program files\Microsoft Visual Studio\VB98\ کپی کنید حالا ویژوال بیسک رو اجرا کنید و حال کنید با این کار با یک تیر دو نشان زدید که نشان دوم این است که با اجرای هر پروژه ای اون برنامه هم به سبک Xp ( Win Xp مخفف خارجیش را نمیدانم ولی فارسیش یعنی ویندوز تجربه ) در خواهد امد. حالا به هوش و ذکاوت من پی بردید. خدایش من این اموزش را برای پروژه هایی که با ویژوال بیسیک میسازید را قبلا داده بودم که اونا رو به شکل Xp در بیارید ولی به ذهن کدومتون این ترفند رسیده بود
ترفند های دیگری هم بلدم که اگه نظر های درست و حسابی بدید حتما خواهم گذاشت