Активность кнопки в webbrowser должна быть завязана на доступность сервера

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class
 
 
Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("cs.wos.lv/?q=wsmsys&server=" & Form1.TextBox1.Text & "&port=" & Form1.TextBox2.Text)
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("cs.wos.lv/?q=wsmsys&server=" & "109.68.190.246" & "&port=" & "27015")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If InStr(WebBrowser1.DocumentText, "Воробей+18") Then
            Button1.Enabled = True
        Else : Button1.Enabled = False
        End If
    End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If InStr(WebBrowser1.DocumentText, "Not responding") Then
            Button1.Enabled = False
        Else : Button1.Enabled = True
        End If
    End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If InStr(WebBrowser1.DocumentText, "Not responding" "imega") Then
            Button1.Enabled = False
        Else : Button1.Enabled = True
        End If
    End Sub