How to bring a window/form in to focus.

---

Public Class wordpro
Private strFileName As String
Private frmNumber As Integer = 1

Private ChangesMade As Boolean
Private Sub savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savebtn.Click
Dim SaveFile As New SaveFileDialog
SaveFile.FileName = ""
SaveFile.Filter = "Text Files (*.txt |*.txt|Rich Text*.rtf|*.rtf|All Files (*.*)|*.*"
SaveFile.Title = "Save"
SaveFile.ShowDialog()
Try
Dim Write As New System.IO.StreamWriter(SaveFile.FileName)
Write.Write(richtextbox.Text)
Write.Close()
Catch ex As Exception

End Try

ChangesMade = False
End Sub

Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click
Dim OpenFile As New OpenFileDialog
OpenFile.FileName = ""
OpenFile.Filter = "Text Files (*.txt |*.txt|Rich Text*.rtf|*.rtf|All Files (*.*)|*.*"
OpenFile.Title = "Open"
OpenFile.ShowDialog()
Try
Dim Read As New System.IO.StreamReader(OpenFile.FileName)
richtextbox.Text = Read.ReadToEnd
Read.Close()
Catch ex As Exception

End Try

ChangesMade = False



End Sub

Private Sub cutbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cutbtn.Click
richtextbox.Cut()
End Sub

Private Sub copybtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles copybtn.Click
richtextbox.Copy()
End Sub

Private Sub pastebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pastebtn.Click
richtextbox.Paste()

End Sub

Private Sub formatbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles formatbtn.Click
FontDialog1.ShowDialog()
richtextbox.Font = FontDialog1.Font


End Sub

Private Sub fontcolourbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fontcolourbtn.Click
ColorDialog1.ShowDialog()
richtextbox.ForeColor = ColorDialog1.Color()
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles formatgroup.Enter

End Sub

Private Sub GroupBox1_Enter_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textformattingroup.Enter

End Sub

Private Sub exitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitbtn.Click
Dim exitf As System.Windows.Forms.DialogResult
exitf = MsgBox("Do you want to exit?", MsgBoxStyle.YesNo)
If exitf = MsgBoxResult.Yes Then
Me.Close()

Else
End If
End Sub

Private Sub clearclipboardbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearclipboardbtn.Click
My.Computer.Clipboard.Clear()
End Sub

Private Sub wordpro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cutbtn.Enabled = False
copybtn.Enabled = False
pastebtn.Enabled = Clipboard.ContainsText Or Clipboard.ContainsData(DataFormats.Rtf)
clearclipboardbtn.Enabled = Clipboard.ContainsText
CutToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False
PasteToolStripMenuItem.Enabled = Clipboard.ContainsText Or Clipboard.ContainsData(DataFormats.Rtf)
ClearClipboardToolStripMenuItem.Enabled = Clipboard.ContainsText
Me.Text = "Form Number:" & frmNumber


End Sub
Private Sub Wordpro_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

If ChangesMade = True Then Saveprompt()



End Sub
Private Sub Saveprompt()
If MessageBox.Show(Me, "Do you want to save your changes? Please note if you have included formatting such as fonts, colours & text sizes please save a Rich Text Document otherwise all formatting will be lost", "Unsaved Changes!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
SaveChanges()
End If
End Sub

Private Sub SaveChanges()
Dim SaveFile As New SaveFileDialog
SaveFile.FileName = ""
SaveFile.Filter = "Text Files (*.txt |*.txt|Rich Text*.rtf|*.rtf|All Files (*.*)|*.*"
SaveFile.Title = "Save"
SaveFile.ShowDialog()
Try
Dim Write As New System.IO.StreamWriter(SaveFile.FileName)
Write.Write(richtextbox.Text)
Write.Close()
Catch ex As Exception

End Try

ChangesMade = False

End Sub

Private Sub richtextbox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles richtextbox.TextChanged
ChangesMade = True
End Sub
Private Sub RichTextBox_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles richtextbox.SelectionChanged
cutbtn.Enabled = richtextbox.SelectionLength > 0
copybtn.Enabled = richtextbox.SelectionLength > 0
pastebtn.Enabled = Clipboard.ContainsText Or Clipboard.ContainsData(DataFormats.Rtf)
clearclipboardbtn.Enabled = Clipboard.ContainsData(DataFormats.Rtf) Or Clipboard.ContainsText
CutToolStripMenuItem.Enabled = richtextbox.SelectionLength > 0
CopyToolStripMenuItem.Enabled = richtextbox.SelectionLength > 0
PasteToolStripMenuItem.Enabled = Clipboard.ContainsText Or Clipboard.ContainsData(DataFormats.Rtf)
ClearClipboardToolStripMenuItem.Enabled = Clipboard.ContainsData(DataFormats.Rtf) Or Clipboard.ContainsText
End Sub

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

End Sub

Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click

End Sub

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim OpenFile As New OpenFileDialog
OpenFile.FileName = ""
OpenFile.Filter = "Text Files (*.txt |*.txt|Rich Text*.rtf|*.rtf|All Files (*.*)|*.*"
OpenFile.Title = "Open"
OpenFile.ShowDialog()
Try
Dim Read As New System.IO.StreamReader(OpenFile.FileName)
richtextbox.Text = Read.ReadToEnd
Read.Close()
Catch ex As Exception

End Try
End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim SaveFile As New SaveFileDialog
SaveFile.FileName = ""
SaveFile.Filter = "Text Files (*.txt |*.txt|Rich Text*.rtf|*.rtf|All Files (*.*)|*.*"
SaveFile.Title = "Save"
SaveFile.ShowDialog()
Try
Dim Write As New System.IO.StreamWriter(SaveFile.FileName)
Write.Write(richtextbox.Text)
Write.Close()
Catch ex As Exception

End Try

ChangesMade = False
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Dim exitf As System.Windows.Forms.DialogResult
exitf = MsgBox("Do you want to exit?", MsgBoxStyle.YesNo)
If exitf = MsgBoxResult.Yes Then
Me.Close()

Else
End If
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
richtextbox.Cut()
End Sub

Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
richtextbox.Copy()
End Sub

Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
richtextbox.Paste()
End Sub

Private Sub ClearClipboardToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearClipboardToolStripMenuItem.Click
My.Computer.Clipboard.Clear()
End Sub

Private Sub findreplacebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findreplacebtn.Click
findreplace.Show()
End Sub

Private Sub FormatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormatToolStripMenuItem.Click

End Sub
Private Sub closefilebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closefilebtn.Click
If richtextbox.Text.Count() <> 0 Then
End If
Dim result As DialogResult = MessageBox.Show("Are you sure you want to close this file?", "Close File?", MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then Saveprompt()
richtextbox.Clear()
End Sub

Private Sub FindAndReplaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindAndReplaceToolStripMenuItem.Click
findreplace.Show()
End Sub
Private Sub newfilebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newfilebtn.Click
If richtextbox.Text.Count() <> 0 Then
End If
Dim result As DialogResult = MessageBox.Show("Do you want to creat a new file?", "New File", MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then Saveprompt()
richtextbox.Clear()
End Sub

Private Sub nwordpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nwordpro.Click
Dim newDoc As New wordpro
newDoc.frmNumber = 2
newDoc.ShowDialog()
End Sub
End Class

---