كيفية حفظ صفحة انترنت على الجهاز باستخدام WebBrowser1

السلام عليكم

فى حدث المنيو استرب او البوتون لحفظ الصفحهضع هذا الكود

Dim Browser As New WebBrowser

Browser.Name = "اسم المتصفح"

Browser.Dock = DockStyle.Fill

AddHandler Browser.ProgressChanged, AddressOf Loading

AddHandler Browser.DocumentCompleted, AddressOf Done

int = int + 1

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowSaveAsDialog()

End Sub

نجح معى تمام 200%