Twitter Handle Checker (Source)

Public Class Form1
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''' App Made By Dev xKoVx ''''''''''''''''''''
    ''''''''''''''''''' Credits To MRMURK4G3 '''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim ckhandle As String = "Checking Handle ..."
    Dim Ahandle As String = "Account Available!"
    Dim TError As String = "Please Enter A Twitter Handle you wish to check!"
    Dim Asuspend As String = "Account suspended!"
    Dim ATaken As String = "Account Taken!"

    Private Sub EarnButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EarnButton1.Click
        Dim res As String = Replace(EarnTextBox1.Text, Space(1), Space(0))
        If EarnTextBox1.Text = "Twitter_Handle" Then
            MsgBox(TError, MsgBoxStyle.Exclamation)
        Else
            If EarnTextBox1.Text = "" Then
                MsgBox(TError, MsgBoxStyle.Exclamation)
            Else
                EarnTextBox1.Text = res
                WebBrowser1.Navigate("https://twitter.com/" + EarnTextBox1.Text)
                Timer1.Start()
            End If
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Timer2.Start()
            Timer1.Stop()
        End If
        Label2.ForeColor = Color.Green
        Label2.Text = ckhandle
    End Sub

    Private Sub check_account()

        'Account suspended'

        If WebBrowser1.DocumentText.Contains("Account suspended") Then
            Label2.ForeColor = Color.Violet
            Label2.Text = Asuspend
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("This account has been suspended. Learn more about why Twitter suspends accounts, or return to your timeline.") Then
            Label2.ForeColor = Color.Violet
            Label2.Text = Asuspend
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("This account has been suspended") Then
            Label2.ForeColor = Color.Violet
            Label2.Text = Asuspend
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

            'Account Taken'

        ElseIf WebBrowser1.DocumentText.Contains("Tweets") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("Following") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("Likes") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("Followers") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("Tweets & replies") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("Media") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("Edit profile") Then
            Label2.ForeColor = Color.Red
            Label2.Text = ATaken
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()


            'Account Available'

        ElseIf WebBrowser1.DocumentText.Contains("Sorry, that page doesn’t exist!") Then
            Label2.ForeColor = Color.Green
            Label2.Text = Ahandle
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()

        ElseIf WebBrowser1.DocumentText.Contains("You can search Twitter using the search box below or return to the homepage.") Then
            Label2.ForeColor = Color.Green
            Label2.Text = Ahandle
            System.Threading.Thread.Sleep(500)
            Timer2.Stop()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            check_account()
            ProgressBar1.Value = 0
        End If
    End Sub
End Class