auto clicker,typer,ptc,media playr,notepad,shutdn,loginform,sendingmail,keylogger all program

Imports System.Net.Mail
Public Class Form7
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Console.Beep()
Timer2.Start()
'On Form Loading Executing Work
ComboBox1.Items.Add("Hide PrintSetup TextBox")
ComboBox1.Items.Add("Hide Search Boxes")
ComboBox1.Items.Add("Media Player")
ComboBox1.Items.Add("Run Time")
ComboBox1.Items.Add("Show Calender")
ComboBox1.Items.Add("Stop Time")
KeyPreview = True
ComboBox11.Text = My.Settings.Emailid
TextBox5.Text = My.Settings.Emailpassword
End Sub
Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripButton.Click
Dim openfile1 As New OpenFileDialog()
openfile1.DefaultExt = "*.rtf"
openfile1.Filter = "RTF Files(*rtf*)|*.rtf|Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
openfile1.CheckPathExists = True
openfile1.Title = "Save File"
' Determine whether the user selected a file name from the openFileDialog.
Try
If (openfile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (openfile1.FileName.Length > 0) Then
' Load the contents of the RichTextBox into the file.
RichTextBox1.LoadFile(openfile1.FileName)
End If
Catch ex As Exception 'Do nothing on Exception
End Try
End Sub
Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click
RichTextBox1.Text = String.Empty
RichTextBox1.Focus()
End Sub
Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
Dim SaveFile1 As New SaveFileDialog()
SaveFile1.DefaultExt = "*.rtf"
SaveFile1.Filter = "RTF Files(*rtf*)|*.rtf|Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
SaveFile1.CheckPathExists = True
SaveFile1.Title = "Save File"
' Determine whether the user selected a file name from the saveFileDialog.
Try
If (SaveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (SaveFile1.FileName.Length > 0) Then
' Save the contents of the RichTextBox into the file.
RichTextBox1.SaveFile(SaveFile1.FileName)
End If
Catch ex As Exception 'Do nothing on Exception
End Try
End Sub
Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
RichTextBox1.Text = String.Empty
RichTextBox1.Focus()
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim openfile1 As New OpenFileDialog()
openfile1.DefaultExt = "*.rtf"
openfile1.Filter = "RTF Files(*rtf*)|*.rtf|Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
openfile1.CheckPathExists = True
openfile1.Title = "Save File"
' Determine whether the user selected a file name from the openFileDialog.
Try
If (openfile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (openfile1.FileName.Length > 0) Then
' Load the contents of the RichTextBox into the file.
RichTextBox1.LoadFile(openfile1.FileName)
End If
Catch ex As Exception 'Do nothing on Exception
End Try
End Sub
Public Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim SaveFile1 As New SaveFileDialog()
SaveFile1.DefaultExt = "*.rtf"
SaveFile1.Filter = "RTF Files(*rtf*)|*.rtf|Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
SaveFile1.CheckPathExists = True
SaveFile1.Title = "Save File"
' Determine whether the user selected a file name from the saveFileDialog.
Try
If (SaveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (SaveFile1.FileName.Length > 0) Then
' Save the contents of the RichTextBox into the file.
RichTextBox1.SaveFile(SaveFile1.FileName)
End If
Catch ex As Exception 'Do nothing on Exception
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub DeleteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem1.Click
RichTextBox1.Clear()
End Sub
Private Sub CutToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripButton.Click
RichTextBox1.Cut()
End Sub
Private Sub CopyToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripButton.Click
RichTextBox1.Copy()
End Sub
Private Sub PasteToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripButton.Click
RichTextBox1.Paste()
End Sub
Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs)
' Initialize the dialog's PrinterSettings property to hold user
' defined printer settings.
PageSetupDialog1.PageSettings = _
New System.Drawing.Printing.PageSettings
' Initialize dialog's PrinterSettings property to hold user
' set printer settings.
PageSetupDialog1.PrinterSettings = _
New System.Drawing.Printing.PrinterSettings
'Do not show the network in the printer dialog.
PageSetupDialog1.ShowNetwork = False
'Show the dialog storing the result.
Dim result As DialogResult = PageSetupDialog1.ShowDialog()
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.CheckState = CheckState.Unchecked Then
RichTextBox1.Show()
End If
End Sub
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
ComboBox2.Text = WebBrowser1.Url.ToString()
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
If WebBrowser1.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox2.Text = TimeOfDay
TextBox1.Text = TrackBar1.Value
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ToolStripStatusLabel2.Text = Len(RichTextBox1.Text)
If CheckBox2.CheckState = CheckState.Checked Then
My.Settings.Emailid = ComboBox11.Text
My.Settings.Emailpassword = TextBox5.Text
My.Settings.Save()
My.Settings.Reload()
End If
If CheckBox3.CheckState = CheckState.Checked Then
Panel9.Height = 463
ElseIf CheckBox3.CheckState = CheckState.Unchecked Then
Panel9.Height = 247
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "Stop Time" Then
Timer1.Enabled = False
ElseIf ComboBox1.SelectedItem = "Run Time" Then
Timer1.Enabled = True
ElseIf ComboBox1.SelectedItem = "Hide Calender" Then
DateTimePicker1.Hide()
ElseIf ComboBox1.SelectedItem = "Show Calender" Then
DateTimePicker1.Show()
ElseIf ComboBox1.SelectedItem = "Hide PrintSetup TextBox" Then
PrintSetUp.Hide()
ElseIf ComboBox1.SelectedItem = "Media Player" Then
Form9.Show()
ElseIf ComboBox1.SelectedItem = "Hide Search Boxes" Then
ComboBox3.Hide()
ComboBox4.Hide()
ComboBox5.Hide()
ComboBox6.Hide()
End If
End Sub
Private Sub ReplaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceToolStripMenuItem.Click
Dim x, y As String
Button10.Show()
ComboBox1.Hide()
TextBox3.Show()
TextBox4.Show()
x = RichTextBox1.Text
y = x.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox1.Text = y
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim find, rplace As String
find = RichTextBox1.Text
rplace = find.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox1.Text = rplace
Button10.Hide()
ComboBox1.Show()
TextBox3.Hide()
TextBox4.Hide()
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
RichTextBox1.Undo()
End Sub
Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
RichTextBox1.Redo()
End Sub
Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click
PrintSetUp.Show()
'This method displays a PageSetupDialog object. If the
' user clicks OK in the dialog, selected results of
' the dialog are displayed in ListBox1.
' Initialize the dialog's PrinterSettings property to hold user
' defined printer settings.
PageSetupDialog1.PageSettings = _
New System.Drawing.Printing.PageSettings
' Initialize dialog's PrinterSettings property to hold user
' set printer settings.
PageSetupDialog1.PrinterSettings = _
New System.Drawing.Printing.PrinterSettings
'Do not show the network in the printer dialog.
PageSetupDialog1.ShowNetwork = False
'Show the dialog storing the result.
Dim result As DialogResult = PageSetupDialog1.ShowDialog()
' If the result is OK, display selected settings in
' ListBox1. These values can be used when printing the
' document.
If (result = DialogResult.OK) Then
Dim results() As Object = New Object() _
{PageSetupDialog1.PageSettings.Margins, _
PageSetupDialog1.PageSettings.PaperSize, _
PageSetupDialog1.PageSettings.Landscape, _
PageSetupDialog1.PrinterSettings.PrinterName, _
PageSetupDialog1.PrinterSettings.PrintRange}
PrintSetUp.Items.AddRange(results)
End If
End Sub
Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click
FontDialog1.ShowDialog()
RichTextBox1.Font = FontDialog1.Font
End Sub
Private Sub ToolStripButton16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton16.Click
ColorDialog1.ShowDialog()
RichTextBox1.SelectionColor = ColorDialog1.Color
End Sub
Private Sub ToolStripButton17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton17.Click
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
End Sub
Private Sub ComboBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox2.KeyDown
If e.KeyCode = Keys.Enter Then
CheckBox1.CheckState = CheckState.Checked
Me.WebBrowser1.Navigate(ComboBox2.Text)
Me.WebBrowser1.Show()
RichTextBox1.Hide()
Panel2.BringToFront()
End If
End Sub
Private Sub ComboBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox3.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox3.Text = "" Then
MsgBox("You have not entered any Text!!")
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("www.google.co.in/search?hl=in&q=" & ComboBox3.Text & "&btnG=Search&meta=")
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("www.google.co.in/search?hl=in&q=" & ComboBox3.Text & "&btnG=Search&meta=")
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("www.google.co.in/search?hl=in&q=" & ComboBox3.Text & "&btnG=Search&meta=")
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("www.google.co.in/search?hl=in&q=" & ComboBox3.Text & "&btnG=Search&meta=")
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("www.google.co.in/search?hl=in&q=" & ComboBox3.Text & "&btnG=Search&meta=")
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub RichTextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.MouseHover
Panel7.Hide()
TrackBar1.Hide()
ComboBox10.Hide()
Panel9.Visible = False
End Sub
Private Sub ComboBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox5.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox5.Text = "" Then
MsgBox("You have not entered any Text!!", MsgBoxStyle.OkOnly)
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("images.google.co.in/images?hl=en&q=" & ComboBox5.Text & "&um=1&ie=UTF-8&sa=N&tab=wi")
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("images.google.co.in/images?hl=en&q=" & ComboBox5.Text & "&um=1&ie=UTF-8&sa=N&tab=wi")
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("images.google.co.in/images?hl=en&q=" & ComboBox5.Text & "&um=1&ie=UTF-8&sa=N&tab=wi")
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("images.google.co.in/images?hl=en&q=" & ComboBox5.Text & "&um=1&ie=UTF-8&sa=N&tab=wi")
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("images.google.co.in/images?hl=en&q=" & ComboBox5.Text & "&um=1&ie=UTF-8&sa=N&tab=wi")
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub ComboBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox6.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox6.Text = "" Then
MsgBox("You have not entered any Text!!", MsgBoxStyle.OkOnly)
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("www.youtube.com/results?search type=&search query=" & ComboBox6.Text & "&aq=f")
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("www.youtube.com/results?search type=&search query=" & ComboBox6.Text & "&aq=f")
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("www.youtube.com/results?search type=&search query=" & ComboBox6.Text & "&aq=f")
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("www.youtube.com/results?search type=&search query=" & ComboBox6.Text & "&aq=f")
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("www.youtube.com/results?search type=&search query=" & ComboBox6.Text & "&aq=f")
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub ComboBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox7.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox7.Text = "" Then
MsgBox("You have not entered any Text!!", MsgBoxStyle.OkOnly)
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("books.google.co.in/books?hl=en&q=" & ComboBox7.Text & "&um=1&ie=UTF-8&sa=N&tab=bp")
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("books.google.co.in/books?hl=en&q=" & ComboBox7.Text & "&um=1&ie=UTF-8&sa=N&tab=bp")
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("books.google.co.in/books?hl=en&q=" & ComboBox7.Text & "&um=1&ie=UTF-8&sa=N&tab=bp")
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("books.google.co.in/books?hl=en&q=" & ComboBox7.Text & "&um=1&ie=UTF-8&sa=N&tab=bp")
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("books.google.co.in/books?hl=en&q=" & ComboBox7.Text & "&um=1&ie=UTF-8&sa=N&tab=bp")
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub ComboBox8_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox8.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox8.Text = "" Then
MsgBox("You have not entered any Text!!", MsgBoxStyle.OkOnly)
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("maps.google.co.in/maps?hl=en&q=" & ComboBox8.Text & "&um=1&ie=UTF-8&sa=N&tab=pl")
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("maps.google.co.in/maps?hl=en&q=" & ComboBox8.Text & "&um=1&ie=UTF-8&sa=N&tab=pl")
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("maps.google.co.in/maps?hl=en&q=" & ComboBox8.Text & "&um=1&ie=UTF-8&sa=N&tab=pl")
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("maps.google.co.in/maps?hl=en&q=" & ComboBox8.Text & "&um=1&ie=UTF-8&sa=N&tab=pl")
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("maps.google.co.in/maps?hl=en&q=" & ComboBox8.Text & "&um=1&ie=UTF-8&sa=N&tab=pl")
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub ComboBox9_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox9.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox9.Text = "" Then
MsgBox("You have not entered any Text!!", MsgBoxStyle.OkOnly)
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("blogsearch.google.co.in/blogsearch?hl=en&q=" & ComboBox9.Text & "&um=1&ie=UTF-8&sa=N&tab=wb")
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("blogsearch.google.co.in/blogsearch?hl=en&q=" & ComboBox9.Text & "&um=1&ie=UTF-8&sa=N&tab=wb")
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("blogsearch.google.co.in/blogsearch?hl=en&q=" & ComboBox9.Text & "&um=1&ie=UTF-8&sa=N&tab=wb")
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("blogsearch.google.co.in/blogsearch?hl=en&q=" & ComboBox9.Text & "&um=1&ie=UTF-8&sa=N&tab=wb")
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("blogsearch.google.co.in/blogsearch?hl=en&q=" & ComboBox9.Text & "&um=1&ie=UTF-8&sa=N&tab=wb")
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
RichTextBox1.SelectionFont = New Font(FontFamily.GenericSansSerif, TrackBar1.Value)
End Sub
Private Sub TextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover
If RichTextBox1.Visible Then
TrackBar1.Show()
End If
End Sub
Private Sub Panel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.Click
Panel4.Show()
End Sub
Private Sub Panel1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseHover
ComboBox25.BringToFront()
ComboBox25.Show()
WebBrowser2.Show()
RichTextBox1.Hide()
WebBrowser1.Hide()
WebBrowser4.Hide()
WebBrowser3.Hide()
WebBrowser5.Hide()
Panel1.BackColor = Color.White
Panel2.BackColor = Color.Lavender
Panel4.BackColor = Color.Lavender
Panel5.BackColor = Color.Lavender
Panel6.BackColor = Color.Lavender
End Sub
Private Sub Panel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel2.Click
Panel1.Show()
End Sub
Private Sub Panel2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel2.MouseHover
ComboBox2.BringToFront()
WebBrowser1.Show()
WebBrowser2.Hide()
WebBrowser3.Hide()
WebBrowser4.Hide()
WebBrowser5.Hide()
RichTextBox1.Hide()
Panel2.BackColor = Color.White
Panel1.BackColor = Color.Lavender
Panel4.BackColor = Color.Lavender
Panel5.BackColor = Color.Lavender
Panel6.BackColor = Color.Lavender
End Sub
Private Sub Panel3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel3.MouseHover
RichTextBox1.Show()
WebBrowser1.Hide()
WebBrowser2.Hide()
WebBrowser3.Hide()
WebBrowser4.Hide()
WebBrowser5.Hide()
Panel2.BackColor = Color.Lavender
Panel1.BackColor = Color.Lavender
Panel4.BackColor = Color.Lavender
Panel5.BackColor = Color.Lavender
Panel6.BackColor = Color.Lavender
End Sub
Private Sub Panel4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel4.Click
Panel5.Show()
End Sub
Private Sub Panel4_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel4.MouseHover
WebBrowser3.Show()
RichTextBox1.Hide()
WebBrowser1.Hide()
WebBrowser2.Hide()
WebBrowser4.Hide()
WebBrowser5.Hide()
ComboBox24.BringToFront()
Panel4.BackColor = Color.White
Panel2.BackColor = Color.Lavender
Panel1.BackColor = Color.Lavender
Panel5.BackColor = Color.Lavender
Panel6.BackColor = Color.Lavender
End Sub
Private Sub Panel5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel5.Click
Panel6.Show()
End Sub
Private Sub Panel5_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel5.MouseHover
WebBrowser4.Show()
ComboBox23.BringToFront()
RichTextBox1.Hide()
WebBrowser1.Hide()
WebBrowser2.Hide()
WebBrowser3.Hide()
WebBrowser5.Hide()
Panel5.BackColor = Color.White
Panel2.BackColor = Color.Lavender
Panel1.BackColor = Color.Lavender
Panel4.BackColor = Color.Lavender
Panel6.BackColor = Color.Lavender
End Sub
Private Sub Panel6_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel6.MouseHover
WebBrowser5.Show()
ComboBox22.BringToFront()
RichTextBox1.Hide()
WebBrowser1.Hide()
WebBrowser2.Hide()
WebBrowser3.Hide()
WebBrowser4.Hide()
Panel6.BackColor = Color.White
Panel2.BackColor = Color.Lavender
Panel1.BackColor = Color.Lavender
Panel4.BackColor = Color.Lavender
Panel5.BackColor = Color.Lavender
End Sub
Private Sub WebBrowser5_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser5.Navigated
ComboBox22.Text = WebBrowser5.Url.ToString()
End Sub
Private Sub WebBrowser4_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser4.Navigated
ComboBox23.Text = WebBrowser4.Url.ToString()
End Sub
Private Sub WebBrowser3_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser3.Navigated
ComboBox24.Text = WebBrowser3.Url.ToString()
End Sub
Private Sub WebBrowser2_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser2.Navigated
ComboBox2.Text = WebBrowser2.Url.ToString()
End Sub
Private Sub ToolStrip1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStrip1.DoubleClick
ToolStrip1.Location = MousePosition
End Sub

Private Sub ComboBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox4.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
If ComboBox4.Text = "" Then
MsgBox("You have not entered any Text!!", MsgBoxStyle.OkOnly)
End If
Else
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate("en.wikipedia.org/wiki/" & ComboBox4.Text)
Me.WebBrowser1.Show()
ElseIf WebBrowser2.Visible Then
Me.WebBrowser2.Navigate("en.wikipedia.org/wiki/" & ComboBox4.Text)
Me.WebBrowser2.Show()
ElseIf WebBrowser3.Visible Then
Me.WebBrowser3.Navigate("en.wikipedia.org/wiki/" & ComboBox4.Text)
Me.WebBrowser3.Show()
ElseIf WebBrowser4.Visible Then
Me.WebBrowser4.Navigate("en.wikipedia.org/wiki/" & ComboBox4.Text)
Me.WebBrowser4.Show()
ElseIf WebBrowser5.Visible Then
Me.WebBrowser5.Navigate("en.wikipedia.org/wiki/" & ComboBox4.Text)
Me.WebBrowser5.Show()
End If
End If
End Sub
Private Sub ComboBox10_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox10.SelectedIndexChanged
If ComboBox10.SelectedItem = "Calculator" Then
Shell("calc")
ElseIf ComboBox10.SelectedItem = "Paint" Then
Shell("mspaint")
ElseIf ComboBox10.SelectedItem = "Dos" Then
Shell("cmd")
ElseIf ComboBox10.SelectedItem = "Task Manager" Then
Shell("taskmgr")
ElseIf ComboBox10.SelectedItem = "Scanning" Then
Shell("wiaacmgr")
ElseIf ComboBox10.SelectedItem = "ClipBoard content Show" Then
Shell("clipbrd")
ElseIf ComboBox10.SelectedItem = "System Configuration Editor" Then
Shell("sysedit")
ElseIf ComboBox10.SelectedItem = "Syskey" Then
Shell("syskey")
ElseIf ComboBox10.SelectedItem = "Drive Clean Up Manager" Then
Shell("cleanmgr")
ElseIf ComboBox10.SelectedItem = "Registry" Then
Shell("regedit")
ElseIf ComboBox10.SelectedItem = "System Volume" Then
Shell("sndvol32")
ElseIf ComboBox10.SelectedItem = "System Recovery/Backup Point" Then
Shell("ntbackup")
ElseIf ComboBox10.SelectedItem = "Remote Desktop Connection" Then
Shell("mstsc")
ElseIf ComboBox10.SelectedItem = "Telnet Communication" Then
Shell("telnet")
ElseIf ComboBox10.SelectedItem = "Direct X Diagnosis" Then
Shell("dxdiag")
ElseIf ComboBox10.SelectedItem = "OnScreen Keyboard" Then
Shell("osk")
ElseIf ComboBox10.SelectedItem = "Spider Solitaire" Then
Shell("spider")
ElseIf ComboBox10.SelectedItem = "Control Panel" Then
Shell("control")
ElseIf ComboBox10.SelectedItem = "Diskpartition" Then
Shell("diskpart")
ElseIf ComboBox10.SelectedItem = "Display Properties" Then
Shell("control desktop")
ElseIf ComboBox10.SelectedItem = "folder Properties" Then
Shell("control folders")
ElseIf ComboBox10.SelectedItem = "keyboard Properties" Then
Shell("control keyboard")
ElseIf ComboBox10.SelectedItem = "Mouse Properties" Then
Shell("control mouse")
ElseIf ComboBox10.SelectedItem = "Remote Access Phonebook" Then
Shell("rasphone")
ElseIf ComboBox10.SelectedItem = "Performance monitor" Then
Shell("perfmon")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, emailid, password As String
a = "@gmail.com"
emailid = ComboBox11.Text & a
password = TextBox5.Text
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
Try
'for concatenation with gmail id
ToolStripProgressBar1.Value = 10
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 17
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
ToolStripProgressBar1.Value = 40
mail.To.Add(ComboBox12.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
MsgBox("Mail Successfully Sent to " & TextBox2.Text)
Catch ex As Exception
End Try
Try
If ComboBox14.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox14.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox15.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox15.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox16.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox16.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox17.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox17.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox18.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox18.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox19.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox19.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox20.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox20.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox21.Text <> "" Then
emailid = ComboBox11.Text & a
password = TextBox5.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox21.Text)
mail.Subject = ComboBox13.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
End Sub
Private Sub ComboBox25_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox25.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
CheckBox1.CheckState = CheckState.Checked
Me.WebBrowser2.Navigate(ComboBox25.Text)
Me.WebBrowser2.Show()
End If
End Sub
Private Sub ComboBox24_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox24.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
CheckBox1.CheckState = CheckState.Checked
Me.WebBrowser3.Navigate(ComboBox24.Text)
Me.WebBrowser3.Show()
End If
End Sub
Private Sub ComboBox23_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox23.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
CheckBox1.CheckState = CheckState.Checked
Me.WebBrowser4.Navigate(ComboBox23.Text)
Me.WebBrowser4.Show()
End If
End Sub
Private Sub ComboBox22_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox22.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Hide()
CheckBox1.CheckState = CheckState.Checked
Me.WebBrowser5.Navigate(ComboBox22.Text)
Me.WebBrowser5.Show()
End If
End Sub

Private Sub Panel8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel8.Click
End
End Sub
Private Sub Panel10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel10.Click
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
Panel8.Visible = False
Panel11.BringToFront()
End Sub

Private Sub Panel11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel11.Click
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Panel10.BringToFront()
Panel8.Visible = True
End Sub

Private Sub ToolStripButton18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton18.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
End Sub

Private Sub ToolStripButton22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton22.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
End Sub
Private Sub ToolStripButton24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton24.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
Form3.Show()
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
Form5.Show()
End Sub
Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click
Form2.Show()
End Sub
Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
Form6.Show()
End Sub

Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
Form1.Show()
End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
Form4.Show()
End Sub

Private Sub ToolStripButton20_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton20.Click
ComboBox10.Hide()
End Sub

Private Sub ToolStripButton20_MouseHover1(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton20.MouseHover
ComboBox10.Show()
Panel7.Visible = False
Panel9.Visible = False
ComboBox10.Items.Add("Calculator")
ComboBox10.Items.Add("Paint")
ComboBox10.Items.Add("Dos")
ComboBox10.Items.Add("Task Manager")
ComboBox10.Items.Add("Scanning")
ComboBox10.Items.Add("ClipBoard content Show")
ComboBox10.Items.Add("System Configuration Editor")
ComboBox10.Items.Add("Syskey")
ComboBox10.Items.Add("Drive Clean Up Manager")
ComboBox10.Items.Add("Registry")
ComboBox10.Items.Add("System Volume")
ComboBox10.Items.Add("System Recovery/Backup Point")
ComboBox10.Items.Add("Remote Desktop Connection")
ComboBox10.Items.Add("Telnet Communication")
ComboBox10.Items.Add("Direct X Diagnosis")
ComboBox10.Items.Add("OnScreen Keyboard")
ComboBox10.Items.Add("Spider Solitaire")
ComboBox10.Items.Add("Control Panel")
ComboBox10.Items.Add("Diskpartition")
ComboBox10.Items.Add("Display Properties")
ComboBox10.Items.Add("folder Properties")
ComboBox10.Items.Add("keyboard Properties")
ComboBox10.Items.Add("Mouse Properties")
ComboBox10.Items.Add("Remote Access Phonebook")
ComboBox10.Items.Add("Performance monitor")
KeyPreview = True
End Sub
Private Sub ToolStripButton23_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton23.MouseHover
Panel9.Visible = True
Panel7.Visible = False
ComboBox10.Visible = False
End Sub
Private Sub ToolStripButton21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton21.Click
Panel7.Hide()
End Sub
Private Sub ToolStripButton21_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton21.MouseHover
Panel7.Show()
Panel9.Visible = False
ComboBox10.Visible = False
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate(ComboBox2.Text)
ElseIf WebBrowser2.Visible Then
WebBrowser2.Navigate(ComboBox25.Text)
ElseIf WebBrowser3.Visible Then
WebBrowser3.Navigate(ComboBox24.Text)
ElseIf WebBrowser4.Visible Then
WebBrowser4.Navigate(ComboBox23.Text)
ElseIf WebBrowser5.Visible Then
WebBrowser5.Navigate(ComboBox22.Text)
End If
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
If WebBrowser1.Visible Then
WebBrowser1.Stop()
ElseIf WebBrowser2.Visible Then
WebBrowser2.Stop()
ElseIf WebBrowser3.Visible Then
WebBrowser3.Stop()
ElseIf WebBrowser4.Visible Then
WebBrowser4.Stop()
ElseIf WebBrowser5.Visible Then
WebBrowser5.Stop()
End If
End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
If WebBrowser1.Visible Then
WebBrowser1.Refresh()
ElseIf WebBrowser2.Visible Then
WebBrowser2.Refresh()
ElseIf WebBrowser3.Visible Then
WebBrowser3.Refresh()
ElseIf WebBrowser4.Visible Then
WebBrowser4.Refresh()
ElseIf WebBrowser5.Visible Then
WebBrowser5.Refresh()
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
If WebBrowser1.Visible Then
WebBrowser1.GoForward()
ElseIf WebBrowser2.Visible Then
WebBrowser2.GoForward()
ElseIf WebBrowser3.Visible Then
WebBrowser3.GoForward()
ElseIf WebBrowser4.Visible Then
WebBrowser4.GoForward()
ElseIf WebBrowser5.Visible Then
WebBrowser5.GoForward()
End If
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
If WebBrowser1.Visible Then
WebBrowser1.GoBack()
ElseIf WebBrowser2.Visible Then
WebBrowser2.GoBack()
ElseIf WebBrowser3.Visible Then
WebBrowser3.GoBack()
ElseIf WebBrowser4.Visible Then
WebBrowser4.GoBack()
ElseIf WebBrowser5.Visible Then
WebBrowser5.GoBack()
End If
End Sub

Private Sub Panel12_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel12.MouseHover
SendKeys.Send("{LWin}")
End Sub
End Class