.NET Network Bandwidth monitor - VB.Net

Code
Public Class frmMain

    Private WLength As Integer, WHeight As Integer, scale As Integer



    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click

  Try

    End

  Catch ex As Exception

    MsgBox(String.Format("Error Occured while closing the program!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - App Closing")

  End Try

    End Sub



    Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click

  Try

    MsgBox(String.Format("Programmed and Designed by :{0}{0}Vanlalruata Hnamte{0}[email protected]{0}www.zosoftnet.com", vbCrLf), MsgBoxStyle.Information, "About!")

  Catch ex As Exception

    MsgBox(String.Format("Error Occured while trying to open about-message!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub



    Private Sub frmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

  Try

    My.Settings.MyLocation = Me.Location

    My.Settings.MySize = Me.Size

    My.Settings.MyBackColor = Me.BackColor

    My.Settings.IsFirstRun = False

    My.Settings.MyTransperancyLevel = Me.Opacity

    My.Settings.Save()

    Me.NotificationAreaApp.Dispose()

  Catch ex As Exception

    MsgBox(String.Format("Error Occured while closing the Form!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub



    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

  Try

    Me.Opacity = My.Settings.MyTransperancyLevel

    Me.Location = My.Settings.MyLocation

    Me.Size = My.Settings.MySize

    Me.BackColor = My.Settings.MyBackColor



    Dim monitor As New NetworkMonitor()



    If monitor.Adapters.Length > 0 Then



    End If



  Catch ex As Exception

    MsgBox(String.Format("Error Occured while trying to open the Form!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub



    Private Sub frmMain_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize

  Try

    If ClientSize.Width > 40 AndAlso ClientSize.Height > 40 Then

    WLength = ClientSize.Width

    WHeight = ClientSize.Height

    End If

  Catch ex As Exception

    MsgBox(String.Format("Error Occured while trying to resize the form!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub



    Private Sub PictureBox1_MouseHover(sender As Object, e As System.EventArgs) Handles PictureBox1.MouseHover

  Try

    Me.CloseButton.Visible = True

  Catch ex As Exception

    MsgBox(String.Format("Error Occured!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub



    Private Sub PictureBox1_MouseLeave(sender As Object, e As System.EventArgs) Handles PictureBox1.MouseLeave

  Try

    Timer1.Start()

  Catch ex As Exception

    MsgBox(String.Format("Error Occured!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub



    Private Sub CloseButton_Click(sender As System.Object, e As System.EventArgs) Handles CloseButton.Click

  Me.Hide()

    End Sub



    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

  Try

    Me.CloseButton.Visible = False

    Timer1.Stop()

  Catch ex As Exception

    MsgBox(String.Format("Error Occured!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")

  End Try

    End Sub

End Class