Timer1.Start()
        If ComboBox1.Text = "Adobe Fireworks CS4" Then
            Dim key As Integer
            key = (Rnd() * 5)
            Select Case key
                Case 1
                    TextBox1.Text = "Hello"
                Case 2
                    TextBox1.Text = "Please Subscribe"
                Case 3
                    TextBox1.Text = ":)"
                Case 4
                    TextBox1.Text = "Comment"
                Case 5
                    TextBox1.Text = "Rate"


            End Select
        End If
        If ComboBox1.Text = "Adobe Photoshop CS4" Then
            Dim key As Integer
            key = (Rnd() * 5)
            Select Case key
                Case 1
                    TextBox1.Text = "s"
                Case 2
                    TextBox1.Text = "s"
                Case 3
                    TextBox1.Text = "d"
                Case 4
                    TextBox1.Text = "e"
                Case 5
                    TextBox1.Text = "g"


            End Select
        End If
        If ComboBox1.Text = "Adobe After Effects CS4" Then
            Dim key As Integer
            key = (Rnd() * 5)
            Select Case key
                Case 1
                    TextBox1.Text = "g"
                Case 2
                    TextBox1.Text = "2"
                Case 3
                    TextBox1.Text = "q"
                Case 4
                    TextBox1.Text = "w"
                Case 5
                    TextBox1.Text = "g"



            End Select
        End If
        If ComboBox1.Text = "Adobe Dreamweaver CS4" Then
            Dim key As Integer
            key = (Rnd() * 5)
            Select Case key
                Case 1
                    TextBox1.Text = "e"
                Case 2
                    TextBox1.Text = "g"
                Case 3
                    TextBox1.Text = "r"
                Case 4
                    TextBox1.Text = "g"
                Case 5
                    TextBox1.Text = "g"


            End Select
        End If