Dim Save As New SaveFileDialog
Save.Title = "حفظ الصوره"
Save.Filter = "( *.jpg )ملفات نصية |*.jpg|جميع الملفات|*.*"
If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllimage(Save.FileName, _
Me.الاداه, False)
End If
Save.Dispose()
Save = Nothing
end sub