WolfTeam Clan - Winrate berechner!

Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.Height = (Me.Height + 10)
If (Me.Height = 312) Then
Me.Timer2.Stop()
Me.RichTextBox1.Text = Me.WebBrowser1.Document.Body.InnerText
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("OptionalDas letzte, das du hörst, sind unsere Waffen!Home | Contact Home Join us! News Member Contact About Winrate TeamSpeak³ Server Pictures Wolfteam", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Sidebar Menu", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Home", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Join us!", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("News", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Member", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Contact", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("About", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("TeamSpeak³ Server", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Pictures", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Wolfteam", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Winrate Rechner", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Programmed by ELWarrior", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Links ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Wolfteam Homepage ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Wolfteam Liga ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Contact ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("pascal.haas96@gmail. com", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("[Only registered and activated users can see links. Click Here To Register...] ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Thanks to", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Pascal [ELWarrior]", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Dominik [iJ3loodHeart]", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("2012 ELWarrior Home RSS Feed | XHTML | CSS ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Links", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" Liga ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("©", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Dim list`11 As List(Of String) = New List(Of String)(Me.RichTextBox1.Lines)
list`11.RemoveAt(2)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(3)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(4)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(5)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(6)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(7)
Me.RichTextBox1.Lines = list`11.ToArray()
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(8)
Me.RichTextBox1.Lines = list`11.ToArray()
Me.Label4.Text = Me.RichTextBox1.Text
Me.Label4.Show()
Me.WebBrowser1.Navigate("http://optional.cwsurf.de/winrate.html")
End If
End Sub