Visual Basic (2010) Problem

Public Class Form2

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs)

End Sub


Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted

End Sub

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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If WebBrowser1.DocumentText = "1.0" Then
MsgBox("Du hast die neuste Version!")
Else WebBrowser1.DocumentText = "2.0" Then
MsgBox("Ein Update ist verfügbar: Checke den Thread auf elitepvpers!")
End If
End Sub

Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
If ComboBox1.Text = "MENÜ" Then
TextBox1.Text = "LINK"
Else : End If
End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If WebBrowser1.DocumentText = "1.0" Then
MsgBox("Du hast die neuste Version!")
Else WebBrowser1.DocumentText = "2.0" Then
MsgBox("Ein Update ist verfügbar: Checke den Thread auf elitepvpers!")
End If
End Sub