Woudlent this be the easiest so he can keep his code:

Code:
      Private Sub Ping(ByVal ip As String)
              If My.Settings.server1ip <> String.Empty Then
                  Dim MyPing As New System.Net.NetworkInformation.Ping
                  Dim MyPingResult As System.Net.NetworkInformation.PingReply = MyPing.Send(ip)
                  If MyPingResult.Status = Net.NetworkInformation.IPStatus.Success Then
                      Me.txtServer1Status.ForeColor = Color.Green
                      Me.txtServer1Status.Text = ("Online")
                      Me.txtServer1Reply.Text = (MyPingResult.RoundtripTime.ToString & " ms")
                      If MyPingResult.RoundtripTime.ToString > 200 Then
                          Me.txtServer1Reply.ForeColor = Color.Red
                      Else
                          If MyPingResult.RoundtripTime.ToString > 100 Then
                              Me.txtServer1Status.ForeColor = Color.Orange
                          End If
                      End If
                  Else
                      Me.txtServer1Status.ForeColor = Color.Red
                      Me.txtServer1Status.Text = ("Failed")
                  End If
              Else
                  Me.txtServer1Status.Text = ("No IP Entered")
              End If
          End Sub
Then you do:

Code:
Ping("THEIP")
Ping("THEOTHERIP")