باز کردن کادر open

سلام
اول از کامپوننت ها (Crtl+T) کنترل Microsoft common dialog control 6.0 رو اضافه کنید

بعدش از این کن استفاده کن (باید از خاصیت فیلتر استفاده کنی)

dialog.DialogTitle = "Open Picture"
dialog.Filter = "Bitmp|*.Bmp|JPEG Image|*.jpeg"
dialog.ShowOpen

با سلام
من کتاب های های آموزش dialog control رو خوندم اما فقط تو سیو مشکل دارم
من حالا با ShowSave چطوری می تونم متنی که داخل یه تکس باکس نوشته شده رو سیو کنم ؟:thumbsupsmileyanim:

از این کد استفاده کنید
قبلش باید این ریفرنس رو فراخوانی کنید
project>refrences>Microsoft scripting runtime

Dim m As New FileSystemObject
Dim y As TextStream
Set y = m.CreateTextFile("c:\Softafzar.txt", ForWriting)
y.Write (Text1.Text)