My epad Source Code

Imports System.Net.Mail
Public Class ePad
Private Sub mail_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles mail.MouseHover
mailpanel.Visible = True
Panel7.Visible = False
mailpanel.BringToFront()
End Sub

Private Sub btsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsend.Click
Dim a, emailid, password As String
a = "@gmail.com"
emailid = cbgmailid.Text & a
password = tbpassword.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(cbto.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
MsgBox("Mail Successfully Sent to " & cbto.Text)
Catch ex As Exception
End Try
Try
If ComboBox14.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.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 = cbgmailid.Text & a
password = tbpassword.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 = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
End Sub
Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click
Panel7.Hide()
End Sub
Private Sub search_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles search.MouseHover
Panel7.Show()
mailpanel.Visible = False
Panel7.BringToFront()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
End
End Sub
Private Sub mail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mail.Click
mailpanel.Visible = False
End Sub
Private Sub ToolStripButton3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton3.MouseHover
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub ToolStripComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripComboBox1.KeyDown
If e.KeyCode = Keys.Enter Then
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser2.Visible Then
Me.WebBrowser2.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser3.Visible Then
Me.WebBrowser3.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser4.Visible Then
Me.WebBrowser4.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser5.Visible Then
Me.WebBrowser5.Navigate(ToolStripComboBox1.Text)
End If
End If
End Sub
Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click
RichTextBox1.Text = String.Empty
RichTextBox1.Focus()
End Sub

Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.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 ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.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 ToolStripButton16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton16.Click
RichTextBox1.Cut()
End Sub

Private Sub ToolStripButton17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton17.Click
RichTextBox1.Copy()
End Sub

Private Sub ToolStripButton18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton18.Click
RichTextBox1.Paste()
End Sub

Private Sub ToolStripButton19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton19.Click
RichTextBox1.SelectAll()
End Sub

Private Sub ToolStripButton20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton20.Click
RichTextBox1.SelectAll()
RichTextBox1.Text = ""
End Sub

Private Sub ToolStripButton21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton21.Click
RichTextBox1.Undo()
End Sub

Private Sub ToolStripButton22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton22.Click
RichTextBox1.Redo()
End Sub
Private Sub ToolStripButton23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton23.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
End Sub
Private Sub ToolStripButton24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton24.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
End Sub
Private Sub ToolStripButton25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton25.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub ToolStripButton26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton26.Click
FontDialog1.ShowDialog()
RichTextBox1.Font = FontDialog1.Font
End Sub
Private Sub ToolStripButton27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton27.Click
ColorDialog1.ShowDialog()
RichTextBox1.SelectionColor = ColorDialog1.Color
End Sub

Private Sub ToolStripButton28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton28.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 ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click
Dim a, b As String
a = RichTextBox1.SelectedText
b = LCase(a)
RichTextBox1.SelectedText = b
End Sub

Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click
Dim A, B As String
A = RichTextBox1.SelectedText
B = UCase(A)
RichTextBox1.SelectedText = B
End Sub
Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.DocumentTitleChanged
If WebBrowser1.Visible = True Then
ToolStripStatusLabel1.Text = WebBrowser1.DocumentTitle.ToString()
End If
End Sub
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
If WebBrowser1.Visible Then
ToolStripComboBox1.Text = WebBrowser1.Url.ToString()
TabPage2.Text = WebBrowser1.Url.ToString()
End If
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
WebBrowser1.Print()
End Sub
Private Sub ePad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer3.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = TimeOfDay
TextBox2.Text = TrackBar1.Value
RichTextBox1.ZoomFactor = (TrackBar1.Value) / 3
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label9.Text = Len(RichTextBox1.Text)
Label15.Text = RichTextBox1.Lines.Length
End Sub
Private Sub ToolStripButton10_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton10.MouseHover
TrackBar1.Visible = True
TextBox2.Visible = True
End Sub

Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
TrackBar1.Visible = False
TextBox2.Visible = False
End Sub

Private Sub RichTextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.MouseHover
TrackBar1.Visible = False
TextBox2.Visible = False
Panel1.Visible = False
End Sub
Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
form100.Show()
form100.BringToFront()
End Sub

Private Sub ToolStripButton32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton32.Click
ShockWave_Player.Show()
End Sub

Private Sub ToolStripButton33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton33.Click
media_player.Show()
End Sub
Private Sub ToolStripButton36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton36.Click
Form3.Show()
End Sub

Private Sub ToolStripButton39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton39.Click
Form6.Show()
End Sub

Private Sub ToolStripButton37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton37.Click
Form5.Show()
End Sub

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

Private Sub ToolStripButton38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton38.Click
Form2.Show()
End Sub

Private Sub ToolStripButton40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton40.Click
form100.Show()
End Sub

Private Sub ToolStripButton42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton42.Click
form100.Show()
End Sub

Private Sub ToolStripButton35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton35.Click
ComboBox1.Hide()
End Sub

Private Sub ToolStripButton35_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton35.MouseHover
ComboBox1.Show()
ComboBox1.Items.Add("Calculator")
ComboBox1.Items.Add("Paint")
ComboBox1.Items.Add("Dos")
ComboBox1.Items.Add("Task Manager")
ComboBox1.Items.Add("Scanning")
ComboBox1.Items.Add("ClipBoard content Show")
ComboBox1.Items.Add("System Configuration Editor")
ComboBox1.Items.Add("Syskey")
ComboBox1.Items.Add("Drive Clean Up Manager")
ComboBox1.Items.Add("Registry")
ComboBox1.Items.Add("System Volume")
ComboBox1.Items.Add("System Recovery/Backup Point")
ComboBox1.Items.Add("Remote Desktop Connection")
ComboBox1.Items.Add("Telnet Communication")
ComboBox1.Items.Add("Direct X Diagnosis")
ComboBox1.Items.Add("OnScreen Keyboard")
ComboBox1.Items.Add("Spider Solitaire")
ComboBox1.Items.Add("Control Panel")
ComboBox1.Items.Add("Diskpartition")
ComboBox1.Items.Add("Display Properties")
ComboBox1.Items.Add("folder Properties")
ComboBox1.Items.Add("keyboard Properties")
ComboBox1.Items.Add("Mouse Properties")
ComboBox1.Items.Add("Remote Access Phonebook")
ComboBox1.Items.Add("Performance monitor")
KeyPreview = True
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "Calculator" Then
Shell("calc")
ElseIf ComboBox1.SelectedItem = "Paint" Then
Shell("mspaint")
ElseIf ComboBox1.SelectedItem = "Dos" Then
Shell("cmd")
ElseIf ComboBox1.SelectedItem = "Task Manager" Then
Shell("taskmgr")
ElseIf ComboBox1.SelectedItem = "Scanning" Then
Shell("wiaacmgr")
ElseIf ComboBox1.SelectedItem = "ClipBoard content Show" Then
Shell("clipbrd")
ElseIf ComboBox1.SelectedItem = "System Configuration Editor" Then
Shell("sysedit")
ElseIf ComboBox1.SelectedItem = "Syskey" Then
Shell("syskey")
ElseIf ComboBox1.SelectedItem = "Drive Clean Up Manager" Then
Shell("cleanmgr")
ElseIf ComboBox1.SelectedItem = "Registry" Then
Shell("regedit")
ElseIf ComboBox1.SelectedItem = "System Volume" Then
Shell("sndvol32")
ElseIf ComboBox1.SelectedItem = "System Recovery/Backup Point" Then
Shell("ntbackup")
ElseIf ComboBox1.SelectedItem = "Remote Desktop Connection" Then
Shell("mstsc")
ElseIf ComboBox1.SelectedItem = "Telnet Communication" Then
Shell("telnet")
ElseIf ComboBox1.SelectedItem = "Direct X Diagnosis" Then
Shell("dxdiag")
ElseIf ComboBox1.SelectedItem = "OnScreen Keyboard" Then
Shell("osk")
ElseIf ComboBox1.SelectedItem = "Spider Solitaire" Then
Shell("spider")
ElseIf ComboBox1.SelectedItem = "Control Panel" Then
Shell("control")
ElseIf ComboBox1.SelectedItem = "Diskpartition" Then
Shell("diskpart")
ElseIf ComboBox1.SelectedItem = "Display Properties" Then
Shell("control desktop")
ElseIf ComboBox1.SelectedItem = "folder Properties" Then
Shell("control folders")
ElseIf ComboBox1.SelectedItem = "keyboard Properties" Then
Shell("control keyboard")
ElseIf ComboBox1.SelectedItem = "Mouse Properties" Then
Shell("control mouse")
ElseIf ComboBox1.SelectedItem = "Remote Access Phonebook" Then
Shell("rasphone")
ElseIf ComboBox1.SelectedItem = "Performance monitor" Then
Shell("perfmon")
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.GoBack()
End If
If WebBrowser2.Visible Then
WebBrowser2.GoBack()
End If
If WebBrowser3.Visible Then
WebBrowser3.GoBack()
End If
If WebBrowser4.Visible Then
WebBrowser4.GoBack()
End If
If WebBrowser5.Visible Then
WebBrowser5.GoBack()
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.GoForward()
End If
If WebBrowser2.Visible Then
WebBrowser2.GoForward()
End If
If WebBrowser3.Visible Then
WebBrowser3.GoForward()
End If
If WebBrowser4.Visible Then
WebBrowser4.GoForward()
End If
If WebBrowser5.Visible Then
WebBrowser5.GoForward()
End If

End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
If WebBrowser1.Visible Then
WebBrowser1.Refresh()
End If
If WebBrowser2.Visible Then
WebBrowser2.Refresh()
End If
If WebBrowser3.Visible Then
WebBrowser3.Refresh()
End If
If WebBrowser4.Visible Then
WebBrowser4.Refresh()
End If
If WebBrowser5.Visible Then
WebBrowser5.Refresh()
End If
End Sub

Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
If WebBrowser1.Visible Then
WebBrowser1.Stop()
End If
If WebBrowser2.Visible Then
WebBrowser2.Stop()
End If
If WebBrowser3.Visible Then
WebBrowser3.Stop()
End If
If WebBrowser4.Visible Then
WebBrowser4.Stop()
End If
If WebBrowser5.Visible Then
WebBrowser5.Stop()
End If
End Sub

Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
If WebBrowser1.Visible Then
WebBrowser1.GoHome()
End If
If WebBrowser2.Visible Then
WebBrowser2.GoHome()
End If
If WebBrowser3.Visible Then
WebBrowser3.GoHome()
End If
If WebBrowser4.Visible Then
WebBrowser4.GoHome()
End If
If WebBrowser5.Visible Then
WebBrowser5.GoHome()
End If
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 ToolStripButton43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton43.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.youtube.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.youtube.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.youtube.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.youtube.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.youtube.com")
End If
End Sub

Private Sub ToolStripButton44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton44.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.gmail.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.gmail.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.gmail.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.gmail.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.gmail.com")
End If
End Sub

Private Sub ToolStripButton45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton45.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.orkut.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.orkut.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.orkut.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.orkut.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.orkut.com")
End If
End Sub

Private Sub ToolStripButton46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton46.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.mycantos.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.mycantos.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.mycantos.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.mycantos.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.mycantos.com")
End If
End Sub

Private Sub ToolStripButton47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton47.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.blogger.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.blogger.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.blogger.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.blogger.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.blogger.com")
End If
End Sub

Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.wikipedia.org")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.wikipedia.org")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.wikipedia.org")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.wikipedia.org")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.wikipedia.org")
End If
End Sub

Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.mininova.org")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.mininova.org")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.mininova.org")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.mininova.org")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.mininova.org")
End If
End Sub

Private Sub ToolStripButton50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton50.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.yahoo.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.yahoo.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.yahoo.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.yahoo.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.yahoo.com")
End If
End Sub

Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("http://aajtak.intoday.in/")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("http://in.jagran.yahoo.com/")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("http://in.jagran.yahoo.com/")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("http://in.jagran.yahoo.com/")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("http://in.jagran.yahoo.com/")
End If
End Sub

Private Sub ToolStripButton52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Google.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.google.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.google.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.google.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.google.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.google.com")
End If
End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub ToolStripButton52_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton52.Click
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Bold)
End Sub

Private Sub ToolStripButton31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton31.Click
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Italic)

End Sub

Private Sub ToolStripButton53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton53.Click
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Underline)

End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selStart As Integer
If CheckBox1.Checked = True Then
selStart = RichTextBox1.Text.IndexOf(TextBox3.Text, StringComparison.Ordinal)
Else
selStart = RichTextBox1.Text.IndexOf(TextBox3.Text, StringComparison.OrdinalIgnoreCase)
End If
If selStart = -1 Then
MsgBox("Can’t find word")
Exit Sub
End If
RichTextBox1.Select(selStart, TextBox3.Text.Length)
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
RichTextBox1.ScrollToCaret()
End Sub
Private Sub ToolStripButton54_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton54.MouseHover
Panel1.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a, b As String
b = RichTextBox1.Text
a = b.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox1.Text = a
End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
RichTextBox1.SelectionIndent = Convert.ToInt32(RichTextBox1.Width * (TrackBar2.Value / TrackBar2.Maximum))
End Sub
Private Sub WebBrowser2_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser2.DocumentTitleChanged
If WebBrowser2.Visible Then
ToolStripStatusLabel1.Text = WebBrowser2.DocumentTitle.ToString()
End If
End Sub
Private Sub WebBrowser2_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser2.ProgressChanged
If WebBrowser2.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub

Private Sub WebBrowser3_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser3.Navigated
If WebBrowser3.Visible Then
ToolStripComboBox1.Text = WebBrowser3.Url.ToString()
TabPage4.Text = WebBrowser3.Url.ToString()
End If
End Sub
Private Sub WebBrowser3_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser3.ProgressChanged
If WebBrowser3.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub

Private Sub WebBrowser4_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser4.Navigated
If WebBrowser4.Visible Then
ToolStripComboBox1.Text = WebBrowser4.Url.ToString()
TabPage5.Text = WebBrowser4.Url.ToString()
End If
End Sub
Private Sub WebBrowser4_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser4.ProgressChanged
If WebBrowser4.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub

Private Sub WebBrowser5_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser5.Navigated
If WebBrowser5.Visible Then
ToolStripComboBox1.Text = WebBrowser5.Url.ToString()
TabPage6.Text = WebBrowser5.Url.ToString()
End If
End Sub
Private Sub WebBrowser5_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser5.ProgressChanged
If WebBrowser5.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub
Private Sub WebBrowser2_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser2.Navigated
If WebBrowser2.Visible Then
ToolStripComboBox1.Text = WebBrowser2.Url.ToString()
TabPage3.Text = WebBrowser2.Url.ToString()
End If
End Sub

Private Sub ToolStripButton55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton55.Click
Form56.Show()
End Sub

Private Sub ToolStripButton56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton56.Click
testmaker.Show()
End Sub
End Class