Hi,

below is my code
Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = 5
        Dim strTo As String = setting.tosett.ToString
        ProgressBar1.Value = 10
        Dim strFrom As String = setting.fromsett.ToString
        ProgressBar1.Value = 15
        Dim strSubject As String = setting.subjectsett.ToString & ", " & setting.poslovnajedinicasett.ToString
        ProgressBar1.Value = 20
        Dim strBody As String = Me.txtbody.Text & ". Time when request is sent: " & Date.Today & TimeOfDay & ". Sender of request: " & TextBox3.Text
        ProgressBar1.Value = 25
        Dim mailMessage As New System.Net.Mail.MailMessage(strFrom, strTo,
 strSubject, strBody)
        ProgressBar1.Value = 30
        'mailMessage.IsBodyHtml.ToString()
        Dim smtpserver As New SmtpClient(setting.serveripsett, setting.serverportsett.ToString)
        ProgressBar1.Value = 35
        smtpserver.Credentials = New System.Net.NetworkCredential(setting.serveripsett.ToString, setting.serverportsett.ToString)
        ProgressBar1.Value = 40
        smtpserver.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
        ProgressBar1.Value = 50
        Try
            If My.Computer.Network.Ping(setting.serveripsett.ToString) Then

                smtpserver.Send(mailMessage)
                ProgressBar1.Value = 60

            Else
                MsgBox("Server is not available. Please check your VPN connection!")
            End If
        Catch ex As Exception
            ProgressBar1.Value = 70
            'me.txtinfo.Text = (ex.ToString)
            MsgBox("Error while submiting request: " & ex.Source & ex.Message & ex.ToString)
            'MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error:")
            ProgressBar1.Value = 5

            Exit Sub
        End Try
        ProgressBar1.Value = 100
        MessageBox.Show("Request is submited.")
        ProgressBar1.Value = 0
This is the part of the code which is bothering me:

Code:
            If My.Computer.Network.Ping(setting.serveripsett.ToString) Then

                smtpserver.Send(mailMessage)
                ProgressBar1.Value = 60

            Else
                MsgBox("Server is not available. Please check your VPN connection!")
            End If
So i want the program to ping the server before sending the mail; if server is available then send mail if not then message box with warning appears notifying user to check VPN connection and sending of mail is canceled.

Do you have any advice how to do this?