VB.Net Tutorial/GUI/Browser

Create Your own browser based on DLL

<source lang="vbnet">Imports System.Runtime.InteropServices Imports System.Windows.Forms public class CreateYourOwnBrowserBasedOnDLL

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Dim szPath As String
   " Start\Program
   Public Const CSIDL_PROGRAMS As Short = &H2S
   " My Documents
   Public Const CSIDL_PERSONAL As Short = &H5S
   " {User}\Bookmark Windows NT
   Public Const CSIDL_FAVORITES As Short = &H6S
   " Start\Program\Boot
   Public Const CSIDL_STARTUP As Short = &H7S
   " {User}\Start Windows NT
   Public Const CSIDL_STARTMENU As Short = &HBS
   " {User}\Desktop Windows NT
   Public Const CSIDL_DESKTOPDIRECTORY As Short = &H10S
   " {Windows}\ShellNew
   Public Const CSIDL_TEMPLATES As Short = &H15S
   " All Users\Start Windows NT
   Public Const CSIDL_COMMON_STARTMENU As Short = &H16S
   " All Users\Program Windows NT
   Public Const CSIDL_COMMON_PROGRAMS As Short = &H17S
   " All Users\Boot Windows NT
   Public Const CSIDL_COMMON_STARTUP As Short = &H18S
   " All Users\Desktop Windows NT
   Public Const CSIDL_COMMON_DESKTOPDIRECTORY As Short = &H19S
   " {Windows}\Application Data
   Public Const CSIDL_APPDATA As Short = &H1AS
   " All Users\Bookmark Windows NT
   Public Const CSIDL_COMMON_FAVORITES As Short = &H1FS
   " All Users\Application Data Windows NT
   Public Const CSIDL_COMMON_APPDATA As Short = &H23S
   " nShowCmd
   Public Const SW_HIDE As Short = 0
   Public Const SW_SHOWNORMAL As Short = 1
   Public Const SW_SHOWMINIMIZED As Short = 2
   Public Const SW_SHOWMAXIMIZED As Short = 3
   Public Const SW_MAXIMIZE As Short = 3
   Public Const SW_SHOWNOACTIVATE As Short = 4
   Public Const SW_SHOW As Short = 5
   Public Const SW_MINIMIZE As Short = 6
   Public Const SW_SHOWMINNOACTIVE As Short = 7
   Public Const SW_SHOWNA As Short = 8
   Public Const SW_RESTORE As Short = 9
   " Error Code
   Public Const ERROR_FILE_NOT_FOUND As Short = 2
   Public Const ERROR_PATH_NOT_FOUND As Short = 3
   Public Const ERROR_BAD_FORMAT As Short = 11
   Public Const SE_ERR_FNF As Short = 2
   Public Const SE_ERR_PNF As Short = 3
   Public Const SE_ERR_ACCESSDENIED As Short = 5
   Public Const SE_ERR_OOM As Short = 8
   Public Const SE_ERR_SHARE As Short = 26
   Public Const SE_ERR_ASSOCINCOMPLETE As Short = 27
   Public Const SE_ERR_DDETIMEOUT As Short = 28
   Public Const SE_ERR_DDEFAIL As Short = 29
   Public Const SE_ERR_DDEBUSY As Short = 30
   Public Const SE_ERR_NOASSOC As Short = 31
   Public Const SE_ERR_DLLNOTFOUND As Short = 32
   Public Const SHACF_DEFAULT As Integer = &H0S
   Public Const SHACF_FILESYSTEM As Integer = &H1S
   Public Const SHACF_URLHISTORY As Integer = &H2S
   Public Const SHACF_URLMRU As Integer = &H4S
   Public Const SHACF_USETAB As Integer = &H8S
   Public Const SHACF_FILESYS_ONLY As Integer = &H10S
   Public Const SHACF_AUTOSUGGEST_FORCE_ON As Integer = &H10000000
   Public Const SHACF_AUTOSUGGEST_FORCE_OFF As Integer = &H20000000
   Public Const SHACF_AUTOAPPEND_FORCE_ON As Integer = &H40000000
   Public Const SHACF_AUTOAPPEND_FORCE_OFF As Integer = &H80000000
   Public Const SHACF_URLALL As Integer = (SHACF_URLHISTORY Or SHACF_URLMRU)
   Public Declare Function SHAutoComplete Lib "Shlwapi.dll" _
     (ByVal hwndEdit As Integer, _
     ByVal dwFlags As Integer) As Integer

   Public Declare Function DoAddToFavDlg _
     Lib "shdocvw.dll" _
     (ByVal hwnd As Integer, _
     ByVal szPath As String, _
     ByVal nSizeOfPath As Integer, _
     ByVal szTitle As String, _
     ByVal nSizeOfTitle As Integer, _
     ByVal pidl As Integer) As Integer
   Public Declare Function SHGetSpecialFolderLocation _
     Lib "shell32.dll" _
     (ByVal hwndOwner As Integer, _
     ByVal nFolder As Integer, _
     ByRef pidl As Integer) As Integer
   Private Declare Function DoFileDownload Lib "shdocvw.dll" _
   (ByVal lpszFile As String) As Integer

   Public Declare Function WritePrivateProfileString _
     Lib "kernel32" Alias "WritePrivateProfileStringA" _
     (ByVal lpSectionName As String, _
     ByVal lpKeyName As String, _
     ByVal lpString As String, _
     ByVal lpFileName As String) As Integer
   Public Declare Function DoOrganizeFavDlg _
   Lib "shdocvw.dll" _
   (ByVal hWnd As Integer, _
   ByVal lpszRootFolder As String) As Integer
   Public Declare Function SHGetFolderPath _
     Lib "shfolder.dll" Alias "SHGetFolderPathA" _
     (ByVal hwndOwner As Integer, _
     ByVal nFolder As Integer, _
     ByVal hToken As Integer, _
     ByVal dwReserved As Integer, _
     ByVal lpszPath As String) As Integer
   Private Sub AutoComplete(ByVal check1 As Boolean, ByVal check2 As Boolean)
       Dim dwFlags As Integer
       If check1 Then
           dwFlags = SHACF_URLALL Or SHACF_FILESYSTEM Or _
               SHACF_AUTOSUGGEST_FORCE_ON
           If check2 Then
               dwFlags = dwFlags Or SHACF_AUTOAPPEND_FORCE_ON
           Else
               dwFlags = dwFlags Or SHACF_AUTOAPPEND_FORCE_OFF
           End If
       Else
           dwFlags = SHACF_URLALL Or SHACF_FILESYSTEM Or _
               SHACF_AUTOSUGGEST_FORCE_OFF
           If check2 Then
               dwFlags = dwFlags Or SHACF_AUTOAPPEND_FORCE_ON
           Else
               dwFlags = dwFlags Or SHACF_AUTOAPPEND_FORCE_OFF
           End If
       End If
       SHAutoComplete(TextBox1.Handle.ToInt32, dwFlags)
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       MenuStrip1.Top = 0
       MenuStrip1.Left = 0
       Panel1.Top = MenuStrip1.Height
       Panel1.Left = 0
       Panel1.Width = Me.ClientSize.Width
       TextBox1.Width = Panel1.Width - TextBox1.Left - 5
       WebBrowser1.Top = Panel1.Top + Panel1.Height
       WebBrowser1.Left = 0
       WebBrowser1.Width = Me.ClientSize.Width
       WebBrowser1.Height = Me.ClientSize.Height - Panel1.Height - StatusStrip1.Height
       WebBrowser1.Navigate("c:\")
   End Sub
   Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
       MenuStrip1.Top = 0
       MenuStrip1.Left = 0
       Panel1.Top = MenuStrip1.Height
       Panel1.Left = 0
       Panel1.Width = Me.ClientSize.Width
       TextBox1.Width = Panel1.Width - TextBox1.Left - 5
       WebBrowser1.Top = Panel1.Top + Panel1.Height
       WebBrowser1.Left = 0
       WebBrowser1.Width = Me.ClientSize.Width
       WebBrowser1.Height = Me.ClientSize.Height - Panel1.Height - StatusStrip1.Height
   End Sub
   Private Sub BackBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackBtn.Click
           WebBrowser1.GoBack()
   End Sub
   Private Sub ForwardBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForwardBtn.Click
           WebBrowser1.GoForward()
   End Sub
   Private Sub StopBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopBtn.Click
           WebBrowser1.Stop()
   End Sub
   Private Sub RefreshBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshBtn.Click
           WebBrowser1.Refresh()
   End Sub
   Private Sub HomeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HomeBtn.Click
           WebBrowser1.GoHome()
   End Sub
   Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
           WebBrowser1.GoSearch()
   End Sub
   Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
           WebBrowser1.Navigate(TextBox1.Text)
       End If
   End Sub

   Private Sub WebBrowser1_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
       TextBox1.Text = WebBrowser1.Url.ToString
       ToolStripStatusLabel1.Text = WebBrowser1.Url.ToString
   End Sub
   Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
       Dim NewForm As New Form1()
       Dim strURL As String = WebBrowser1.Url.ToString
       NewForm.Show()
       NewForm.Focus()
       NewForm.WebBrowser1.Navigate(strURL)
   End Sub
   Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
       OpenFileDialog1.Filter = "All Files (*.*)|*.*"
       OpenFileDialog1.Title = "Open"
       If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
           WebBrowser1.Navigate(OpenFileDialog1.FileName)
       End If
   End Sub
   Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
       Dim proc As New System.Diagnostics.Process()
       Dim SystemDir As String = System.Environment.SystemDirectory
       proc.Start(SystemDir & "\MOBSYNC.EXE")
   End Sub
   Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
       Dim proc As New System.Diagnostics.Process()
       Dim SystemDir As String = System.Environment.SystemDirectory
       proc.Start("control.exe", "Inetcpl.cpl")
   End Sub
   Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
       If TextBox1.Text <> "" Then
           WebBrowser1.Navigate("view-source:" & TextBox1.Text)
       End If
   End Sub
   Private Sub ToolStripMenuItemMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemMail.Click
       WebBrowser1.Navigate("mailto:test@test.ru?cc=bbb@test.ru& bcc=ccc@test.ru&subject="mailto")
   End Sub
   Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
       ToolStripMenuItem6.Checked = Not ToolStripMenuItem6.Checked
       AutoComplete(ToolStripMenuItem6.Checked, ToolStripMenuItem7.Checked)
   End Sub
   Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
       ToolStripMenuItem7.Checked = Not ToolStripMenuItem7.Checked
       AutoComplete(ToolStripMenuItem6.Checked, ToolStripMenuItem7.Checked)
   End Sub
   Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click
       Try
           DoFileDownload(TextBox1.Text)
       Catch ex As Exception
           MsgBox(ex.StackTrace.ToString())
       End Try
   End Sub
   Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
       Dim proc As New System.Diagnostics.Process()
       Dim SystemDir As String = System.Environment.SystemDirectory
       Dim szPath As String = "http://www.vbex.ru/"
       If szPath <> "" Then
           Try
               "rundll32.exe shdocvw.dll,OpenURL %l
               proc.Start("rundll32.exe", "shdocvw.dll,OpenURL " & szPath)
           Catch ex As Exception
               Console.WriteLine(ex.StackTrace.ToString())
           End Try
       End If
   End Sub
   Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
       Dim szTitle As String
       Dim dwReturn As Integer
       Dim pidl As Integer
       szTitle = "My Bookmark" & vbNullChar
       szPath = Space(256) & vbNullChar
       dwReturn = SHGetSpecialFolderLocation(Handle.ToInt32, _
           CSIDL_FAVORITES, pidl)
       If dwReturn = 0 Then
           dwReturn = DoAddToFavDlg(Handle.ToInt32, szPath, _
               Len(szPath), szTitle, Len(szTitle), pidl)
           If dwReturn = 1 Then
               szPath = szPath.Substring(0, szPath.IndexOf(vbNullChar))
               WritePrivateProfileString("InternetShortcut", "URL", _
                   TextBox1.Text, szPath)
           End If
       End If
   End Sub
   Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
       Dim lpszRootFolder As String
       Dim lpszPath As String
       Dim dwReturn As Integer
       lpszPath = Space(256)
       dwReturn = SHGetFolderPath(Handle.ToInt32, _
         CSIDL_FAVORITES, 0, &H0S, lpszPath)
       If dwReturn = 0 Then
           lpszRootFolder = lpszPath.Substring(0, _
               lpszPath.IndexOf(vbNullChar))
       End If
       DoOrganizeFavDlg(Handle.ToInt32, lpszRootFolder)
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.Panel1 = New System.Windows.Forms.Panel
       Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
       Me.BackBtn = New System.Windows.Forms.ToolStripButton
       Me.ForwardBtn = New System.Windows.Forms.ToolStripButton
       Me.StopBtn = New System.Windows.Forms.ToolStripButton
       Me.RefreshBtn = New System.Windows.Forms.ToolStripButton
       Me.HomeBtn = New System.Windows.Forms.ToolStripButton
       Me.SearchBtn = New System.Windows.Forms.ToolStripButton
       Me.Label1 = New System.Windows.Forms.Label
       Me.TextBox1 = New System.Windows.Forms.TextBox
       Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel
       Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
       Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
       Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem
       Me.MenuItemFile = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItemMail = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem
       Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
       Me.ToolStripMenuItemFav = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem
       Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem
       Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
       Me.Panel1.SuspendLayout()
       Me.ToolStrip1.SuspendLayout()
       Me.StatusStrip1.SuspendLayout()
       Me.MenuStrip1.SuspendLayout()
       Me.SuspendLayout()
       "
       "Panel1
       "
       Me.Panel1.Controls.Add(Me.ToolStrip1)
       Me.Panel1.Controls.Add(Me.Label1)
       Me.Panel1.Controls.Add(Me.TextBox1)
       Me.Panel1.Location = New System.Drawing.Point(-4, 27)
       Me.Panel1.Name = "Panel1"
       Me.Panel1.Size = New System.Drawing.Size(546, 59)
       Me.Panel1.TabIndex = 11
       "
       "ToolStrip1
       "
       Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BackBtn, Me.ForwardBtn, Me.StopBtn, Me.RefreshBtn, Me.HomeBtn, Me.SearchBtn})
       Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
       Me.ToolStrip1.Name = "ToolStrip1"
       Me.ToolStrip1.Size = New System.Drawing.Size(546, 25)
       Me.ToolStrip1.TabIndex = 11
       Me.ToolStrip1.Text = "ToolStrip1"
       "
       "BackBtn
       "
       Me.BackBtn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.BackBtn.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.BackBtn.Name = "BackBtn"
       Me.BackBtn.Size = New System.Drawing.Size(45, 22)
       Me.BackBtn.Text = "Back"
       "
       "ForwardBtn
       "
       Me.ForwardBtn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.ForwardBtn.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.ForwardBtn.Name = "ForwardBtn"
       Me.ForwardBtn.Size = New System.Drawing.Size(45, 22)
       Me.ForwardBtn.Text = "Next"
       "
       "StopBtn
       "
       Me.StopBtn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.StopBtn.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.StopBtn.Name = "StopBtn"
       Me.StopBtn.Size = New System.Drawing.Size(33, 22)
       Me.StopBtn.Text = "Stop"
       "
       "RefreshBtn
       "
       Me.RefreshBtn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.RefreshBtn.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.RefreshBtn.Name = "RefreshBtn"
       Me.RefreshBtn.Size = New System.Drawing.Size(33, 22)
       Me.RefreshBtn.Text = "Refresh"
       "
       "HomeBtn
       "
       Me.HomeBtn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.HomeBtn.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.HomeBtn.Name = "HomeBtn"
       Me.HomeBtn.Size = New System.Drawing.Size(45, 22)
       Me.HomeBtn.Text = "Home"
       "
       "SearchBtn
       "
       Me.SearchBtn.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.SearchBtn.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.SearchBtn.Name = "SearchBtn"
       Me.SearchBtn.Size = New System.Drawing.Size(45, 22)
       Me.SearchBtn.Text = "Search"
       "
       "Label1
       "
       Me.Label1.Location = New System.Drawing.Point(5, 28)
       Me.Label1.Name = "Label1"
       Me.Label1.Size = New System.Drawing.Size(60, 18)
       Me.Label1.TabIndex = 10
       Me.Label1.Text = "URL:"
       "
       "TextBox1
       "
       Me.TextBox1.Location = New System.Drawing.Point(71, 28)
       Me.TextBox1.Name = "TextBox1"
       Me.TextBox1.Size = New System.Drawing.Size(463, 21)
       Me.TextBox1.TabIndex = 9
       Me.TextBox1.Text = "c:\"
       "
       "ToolStripStatusLabel1
       "
       Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
       Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(23, 17)
       Me.ToolStripStatusLabel1.Text = "c:\"
       "
       "StatusStrip1
       "
       Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
       Me.StatusStrip1.Location = New System.Drawing.Point(0, 228)
       Me.StatusStrip1.Name = "StatusStrip1"
       Me.StatusStrip1.Size = New System.Drawing.Size(541, 22)
       Me.StatusStrip1.TabIndex = 10
       "
       "OpenFileDialog1
       "
       Me.OpenFileDialog1.FileName = "OpenFileDialog1"
       "
       "ToolStripMenuItem4
       "
       Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
       Me.ToolStripMenuItem4.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem4.Text = "IE Option"
       "
       "ToolStripMenuItem3
       "
       Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
       Me.ToolStripMenuItem3.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem3.Text = "Concurrent"
       "
       "MenuItemFile
       "
       Me.MenuItemFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItemMail, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7})
       Me.MenuItemFile.Name = "MenuItemFile"
       Me.MenuItemFile.Size = New System.Drawing.Size(41, 20)
       Me.MenuItemFile.Text = "File"
       "
       "ToolStripMenuItem1
       "
       Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
       Me.ToolStripMenuItem1.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem1.Text = "New"
       "
       "ToolStripMenuItem2
       "
       Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
       Me.ToolStripMenuItem2.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem2.Text = "Open"
       "
       "ToolStripMenuItem5
       "
       Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
       Me.ToolStripMenuItem5.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem5.Text = "Source"
       "
       "ToolStripMenuItemMail
       "
       Me.ToolStripMenuItemMail.Name = "ToolStripMenuItemMail"
       Me.ToolStripMenuItemMail.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItemMail.Text = "Email"
       "
       "ToolStripMenuItem6
       "
       Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
       Me.ToolStripMenuItem6.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem6.Text = "Suggestion"
       "
       "ToolStripMenuItem7
       "
       Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
       Me.ToolStripMenuItem7.Size = New System.Drawing.Size(202, 22)
       Me.ToolStripMenuItem7.Text = "Append"
       "
       "MenuStrip1
       "
       Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuItemFile, Me.ToolStripMenuItemFav})
       Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
       Me.MenuStrip1.Name = "MenuStrip1"
       Me.MenuStrip1.Size = New System.Drawing.Size(541, 24)
       Me.MenuStrip1.TabIndex = 9
       Me.MenuStrip1.Text = "MenuStrip1"
       "
       "ToolStripMenuItemFav
       "
       Me.ToolStripMenuItemFav.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10, Me.ToolStripMenuItem11})
       Me.ToolStripMenuItemFav.Name = "ToolStripMenuItemFav"
       Me.ToolStripMenuItemFav.Size = New System.Drawing.Size(53, 20)
       Me.ToolStripMenuItemFav.Text = "Bookmark"
       "
       "ToolStripMenuItem8
       "
       Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
       Me.ToolStripMenuItem8.Size = New System.Drawing.Size(190, 22)
       Me.ToolStripMenuItem8.Text = "Add Bookmark"
       "
       "ToolStripMenuItem9
       "
       Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
       Me.ToolStripMenuItem9.Size = New System.Drawing.Size(190, 22)
       Me.ToolStripMenuItem9.Text = "Internet URL Shortcut"
       "
       "ToolStripMenuItem10
       "
       Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
       Me.ToolStripMenuItem10.Size = New System.Drawing.Size(190, 22)
       Me.ToolStripMenuItem10.Text = "Organize"
       "
       "ToolStripMenuItem11
       "
       Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
       Me.ToolStripMenuItem11.Size = New System.Drawing.Size(190, 22)
       Me.ToolStripMenuItem11.Text = "Download File"
       "
       "WebBrowser1
       "
       Me.WebBrowser1.Location = New System.Drawing.Point(5, 93)
       Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
       Me.WebBrowser1.Name = "WebBrowser1"
       Me.WebBrowser1.Size = New System.Drawing.Size(536, 120)
       Me.WebBrowser1.TabIndex = 12
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(541, 250)
       Me.Controls.Add(Me.WebBrowser1)
       Me.Controls.Add(Me.Panel1)
       Me.Controls.Add(Me.StatusStrip1)
       Me.Controls.Add(Me.MenuStrip1)
       Me.Panel1.ResumeLayout(False)
       Me.Panel1.PerformLayout()
       Me.ToolStrip1.ResumeLayout(False)
       Me.ToolStrip1.PerformLayout()
       Me.StatusStrip1.ResumeLayout(False)
       Me.StatusStrip1.PerformLayout()
       Me.MenuStrip1.ResumeLayout(False)
       Me.MenuStrip1.PerformLayout()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents Panel1 As System.Windows.Forms.Panel
   Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
   Friend WithEvents BackBtn As System.Windows.Forms.ToolStripButton
   Friend WithEvents ForwardBtn As System.Windows.Forms.ToolStripButton
   Friend WithEvents StopBtn As System.Windows.Forms.ToolStripButton
   Friend WithEvents RefreshBtn As System.Windows.Forms.ToolStripButton
   Friend WithEvents HomeBtn As System.Windows.Forms.ToolStripButton
   Friend WithEvents SearchBtn As System.Windows.Forms.ToolStripButton
   Friend WithEvents Label1 As System.Windows.Forms.Label
   Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
   Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
   Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
   Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
   Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents MenuItemFile As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
   Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItemFav As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem8 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem9 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem10 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents ToolStripMenuItem11 As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
   Friend WithEvents ToolStripMenuItemMail As System.Windows.Forms.ToolStripMenuItem

End Class</source>

Use LinkLabel to start a browser

<source lang="vbnet">Imports System.Windows.Forms public class LinkLableSample

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Public Sub New()
       MyBase.New()
       InitializeComponent()
   End Sub
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing Then
           If Not (components Is Nothing) Then
               components.Dispose()
           End If
       End If
       MyBase.Dispose(disposing)
   End Sub
   Private components As System.ruponentModel.IContainer
   Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
       Me.SuspendLayout()
       "
       "LinkLabel1
       "
       Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
       Me.LinkLabel1.Location = New System.Drawing.Point(88, 32)
       Me.LinkLabel1.Name = "LinkLabel1"
       Me.LinkLabel1.Size = New System.Drawing.Size(112, 32)
       Me.LinkLabel1.TabIndex = 0
       Me.LinkLabel1.TabStop = True
       Me.LinkLabel1.Text = "vbex.ru"
       "
       "Form1
       "
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(292, 102)
       Me.Controls.Add(Me.LinkLabel1)
       Me.ResumeLayout(False)
   End Sub
   Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
       sender.linkVisited = True
       System.Diagnostics.Process.Start("http://www.vbex.ru")
   End Sub

End Class</source>

WebBrowser Demo

<source lang="vbnet">Imports System.Windows.Forms public class WebBrowserDemo

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Private Sub txtURL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtURL.KeyDown
       If (e.KeyCode = Keys.Enter) Then
           WebBrowser1.Navigate(txtURL.Text)
       End If
   End Sub
   Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
       WebBrowser1.GoBack()
   End Sub
   Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
       WebBrowser1.GoForward()
   End Sub
   Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
       WebBrowser1.GoHome()
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
       Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel
       Me.txtURL = New System.Windows.Forms.ToolStripTextBox
       Me.btnBack = New System.Windows.Forms.ToolStripButton
       Me.btnForward = New System.Windows.Forms.ToolStripButton
       Me.btnHome = New System.Windows.Forms.ToolStripButton
       Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
       Me.ToolStrip1.SuspendLayout()
       Me.SuspendLayout()
       "
       "ToolStrip1
       "
       Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.txtURL, Me.btnBack, Me.btnForward, Me.btnHome})
       Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
       Me.ToolStrip1.Name = "ToolStrip1"
       Me.ToolStrip1.Size = New System.Drawing.Size(703, 25)
       Me.ToolStrip1.TabIndex = 0
       Me.ToolStrip1.Text = "ToolStrip1"
       "
       "ToolStripLabel1
       "
       Me.ToolStripLabel1.Name = "ToolStripLabel1"
       Me.ToolStripLabel1.Size = New System.Drawing.Size(50, 22)
       Me.ToolStripLabel1.Text = "Address:"
       "
       "txtURL
       "
       Me.txtURL.Name = "txtURL"
       Me.txtURL.Size = New System.Drawing.Size(200, 25)
       "
       "btnBack
       "
       Me.btnBack.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.btnBack.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.btnBack.Name = "btnBack"
       Me.btnBack.Size = New System.Drawing.Size(33, 22)
       Me.btnBack.Text = "Back"
       "
       "btnForward
       "
       Me.btnForward.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.btnForward.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.btnForward.Name = "btnForward"
       Me.btnForward.Size = New System.Drawing.Size(51, 22)
       Me.btnForward.Text = "Forward"
       "
       "btnHome
       "
       Me.btnHome.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
       Me.btnHome.ImageTransparentColor = System.Drawing.Color.Magenta
       Me.btnHome.Name = "btnHome"
       Me.btnHome.Size = New System.Drawing.Size(38, 22)
       Me.btnHome.Text = "Home"
       "
       "WebBrowser1
       "
       Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.WebBrowser1.Location = New System.Drawing.Point(0, 25)
       Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
       Me.WebBrowser1.Name = "WebBrowser1"
       Me.WebBrowser1.Size = New System.Drawing.Size(703, 429)
       Me.WebBrowser1.TabIndex = 1
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(703, 454)
       Me.Controls.Add(Me.WebBrowser1)
       Me.Controls.Add(Me.ToolStrip1)
       Me.Name = "Form1"
       Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
       Me.Text = "MyBrowser"
       Me.ToolStrip1.ResumeLayout(False)
       Me.ToolStrip1.PerformLayout()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
   Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
   Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
   Friend WithEvents txtURL As System.Windows.Forms.ToolStripTextBox
   Friend WithEvents btnBack As System.Windows.Forms.ToolStripButton
   Friend WithEvents btnForward As System.Windows.Forms.ToolStripButton
   Friend WithEvents btnHome As System.Windows.Forms.ToolStripButton

End Class</source>