Auto Talker/Spammer | VB

By Virtual Insanity on Mar 12, 2011

This will be a pain in the ass to post so I'll just provide pictures to compare.

I created this GUI when I was bored, it's just an example of how it could be.
Image

This is the GUI that matches the snippet:
Image

Public Class Form1
    Dim multiplyfactor As Integer = 1000
    Private Sub stopfunction()
        GroupBox8.Enabled = True
        Button2.Enabled = False
        Button2.ForeColor = Color.Black
        Button3.Enabled = True
        Button4.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button7.Enabled = True
        NumericUpDown1.Enabled = True
        NumericUpDown2.Enabled = True
        NumericUpDown3.Enabled = True
        NumericUpDown4.Enabled = True
        Button2.Enabled = True
        GroupBox1.Enabled = True
        CheckBox6.Enabled = True
        Button1.Enabled = True
        CheckBox5.Enabled = True
        Label5.Enabled = True
        Label7.Text = "0"
        Label8.Text = "0"
        Label9.Text = "0"
        Label10.Text = "0"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = True
        Button2.ForeColor = Color.Red
        GroupBox1.Enabled = False
        CheckBox6.Enabled = False
        Button1.Enabled = False
        CheckBox5.Enabled = False
        Label5.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button6.Enabled = False
        Button7.Enabled = False
        NumericUpDown1.Enabled = False
        NumericUpDown2.Enabled = False
        NumericUpDown3.Enabled = False
        NumericUpDown4.Enabled = False
        Dim startafter As Integer = Convert.ToDecimal(TextBox2.Text) * 1000
        If CheckBox5.Checked = True Then
            Threading.Thread.Sleep(startafter)

        End If
        If CheckBox3.Checked = True Then
            Timer1.Interval = Convert.ToDecimal(TextBox3.Text) * multiplyfactor
            Timer1.Start()
        End If
        If CheckBox1.Checked = True Then
            Timer2.Interval = Convert.ToDecimal(TextBox5.Text) * multiplyfactor
            Timer2.Start()
        End If
        If CheckBox2.Checked = True Then
            Timer3.Interval = Convert.ToDecimal(TextBox6.Text) * multiplyfactor
            Timer3.Start()
        End If
        If CheckBox4.Checked = True Then
            Timer4.Interval = Convert.ToDecimal(TextBox8.Text) * multiplyfactor
            Timer4.Start()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If CheckBox10.Checked = True And CheckBox10.Enabled = True Then
            Label7.Text = Label7.Text + 1
            If Label7.Text >= Convert.ToDecimal(TextBox10.Text) And CheckBox10.Enabled = True Then
                Timer1.Stop()
                Label7.Text = "0"
                If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                    stopfunction()
                End If
            End If
        End If
        If CheckBox14.Checked = True And CheckBox14.Enabled = True Then
            Label14.Text = Label14.Text + 1
            If Label14.Text > 30 Then
                Label14.ForeColor = Color.Orange
            End If
            If Label14.Text > 50 Then
                Label14.ForeColor = Color.Red
            End If
        End If
        If CheckBox16.Enabled = True Then
            Label15.Text = Label15.Text + 1
        End If
        If Label15.Text > 200 Then
            Label15.ForeColor = Color.Orange
        End If
        If Label15.Text > 500 Then
            Label15.ForeColor = Color.Red
        End If
        SendKeys.Send(TextBox1.Text & "{ENTER}")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        stopfunction()
        Timer1.Stop()
        Timer2.Stop()
        Timer3.Stop()
        Timer4.Stop()
        Button2.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If CheckBox9.Checked = True And CheckBox9.Enabled = True Then
            Label8.Text = Label8.Text + 1
            If Label8.Text >= Convert.ToDecimal(TextBox11.Text) And CheckBox9.Enabled = True Then
                Timer2.Stop()
                Label8.Text = "0"
                If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                    stopfunction()
                End If
            End If
        End If
        If CheckBox13.Checked = True And CheckBox13.Enabled = True Then
            Label13.Text = Label13.Text + 1
            If Label13.Text > 30 Then
                Label13.ForeColor = Color.Orange
            End If
            If Label13.Text > 50 Then
                Label13.ForeColor = Color.Red
            End If
        End If
        If CheckBox16.Enabled = True Then
            Label15.Text = Label15.Text + 1
        End If
        If Label15.Text > 200 Then
            Label15.ForeColor = Color.Orange
        End If
        If Label15.Text > 500 Then
            Label15.ForeColor = Color.Red
        End If
        SendKeys.Send(TextBox4.Text & "{ENTER}")
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If CheckBox11.Checked = True And CheckBox11.Enabled = True Then
            Label9.Text = Label9.Text + 1
            If Label9.Text >= Convert.ToDecimal(TextBox12.Text) And CheckBox11.Enabled = True Then
                Timer3.Stop()
                Label9.Text = "0"
                If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                    stopfunction()
                End If
            End If
        End If
        If CheckBox15.Checked = True And CheckBox15.Enabled = True Then
            Label12.Text = Label12.Text + 1
            If Label12.Text > 30 Then
                Label12.ForeColor = Color.Orange
            End If
            If Label12.Text > 50 Then
                Label12.ForeColor = Color.Red
            End If
        End If
        If CheckBox16.Enabled = True Then
            Label15.Text = Label15.Text + 1
        End If
        If Label15.Text > 200 Then
            Label15.ForeColor = Color.Orange
        End If
        If Label15.Text > 500 Then
            Label15.ForeColor = Color.Red
        End If
        SendKeys.Send(TextBox7.Text & "{ENTER}")
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If CheckBox8.Checked = True And CheckBox8.Enabled = True Then
            Label10.Text = Label10.Text + 1
            If Label10.Text >= Convert.ToDecimal(TextBox13.Text) And CheckBox8.Enabled = True Then
                Timer4.Stop()
                Label10.Text = "0"
                If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                    stopfunction()
                End If
            End If
        End If
        If CheckBox12.Checked = True And CheckBox12.Enabled = True Then
            Label11.Text = Label11.Text + 1
            If Label11.Text > 30 Then
                Label11.ForeColor = Color.Orange
            End If
            If Label11.Text > 50 Then
                Label11.ForeColor = Color.Red
            End If
        End If
        If CheckBox16.Enabled = True Then
            Label15.Text = Label15.Text + 1
        End If
        If Label15.Text > 200 Then
            Label15.ForeColor = Color.Orange
        End If
        If Label15.Text > 500 Then
            Label15.ForeColor = Color.Red
        End If
        SendKeys.Send(TextBox9.Text & "{ENTER}")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim num_characters As Integer
        Dim i As Integer
        Dim txt1 As String
        Dim ch As Integer
        Randomize()
        num_characters = Convert.ToDecimal(NumericUpDown1.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt1 = txt1 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt1 = txt1 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt1 = txt1 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox1.Text = txt1
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim num_characters As Integer
        Dim i As Integer
        Dim txt1 As String
        Dim ch As Integer
        Randomize()
        num_characters = Convert.ToDecimal(NumericUpDown2.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt1 = txt1 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt1 = txt1 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt1 = txt1 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox4.Text = txt1
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim num_characters As Integer
        Dim i As Integer
        Dim txt1 As String
        Dim ch As Integer
        Randomize()
        num_characters = Convert.ToDecimal(NumericUpDown3.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt1 = txt1 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt1 = txt1 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt1 = txt1 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox7.Text = txt1
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim num_characters As Integer
        Dim i As Integer
        Dim txt1 As String
        Dim ch As Integer
        Randomize()
        num_characters = Convert.ToDecimal(NumericUpDown4.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt1 = txt1 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt1 = txt1 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt1 = txt1 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox9.Text = txt1
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim num_characters As Integer
        Dim i As Integer
        Dim txt1 As String
        Dim ch As Integer
        Randomize()
        num_characters = Convert.ToDecimal(NumericUpDown1.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt1 = txt1 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt1 = txt1 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt1 = txt1 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox1.Text = txt1

        Dim txt2 As String
        num_characters = Convert.ToDecimal(NumericUpDown2.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt2 = txt2 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt2 = txt2 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt2 = txt2 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox4.Text = txt2

        Dim txt3 As String
        num_characters = Convert.ToDecimal(NumericUpDown3.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt3 = txt3 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt3 = txt3 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt3 = txt3 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox7.Text = txt3

        Dim txt4 As String
        num_characters = Convert.ToDecimal(NumericUpDown4.Text)
        For i = 1 To num_characters
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt4 = txt4 & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt4 = txt4 & Chr(ch + Asc("a"))
            Else
                ch = ch - 26 - 26
                txt4 = txt4 & Chr(ch + Asc("0"))
            End If
        Next i
        TextBox9.Text = txt4
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            TextBox2.Enabled = True
            Label5.Enabled = True
        Else
            TextBox2.Enabled = False
            Label5.Enabled = False
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            TopMost = True
        Else
            TopMost = False
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim site As String = "http://www.hackforums.net/member.php?action=profile&uid=647993"
        Process.Start(site)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            multiplyfactor = 1
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked = True Then
            multiplyfactor = 1
        End If
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        If RadioButton6.Checked = True Then
            multiplyfactor = 1
        End If
    End Sub

    Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
        If RadioButton8.Checked = True Then
            multiplyfactor = 1
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            multiplyfactor = 1000
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked = True Then
            multiplyfactor = 1000
        End If
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        If RadioButton5.Checked = True Then
            multiplyfactor = 1000
        End If
    End Sub

    Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
        If RadioButton7.Checked = True Then
            multiplyfactor = 1000
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            CheckBox8.Enabled = True
            CheckBox9.Enabled = True
            CheckBox10.Enabled = True
            CheckBox11.Enabled = True
            If CheckBox8.Checked = True Then
                TextBox13.Enabled = True
                Label6.Enabled = True
            End If
            If CheckBox9.Checked = True Then
                TextBox11.Enabled = True
                Label3.Enabled = True
            End If
            If CheckBox10.Checked = True Then
                TextBox10.Enabled = True
                Label2.Enabled = True
            End If
            If CheckBox11.Checked = True Then
                TextBox12.Enabled = True
                Label4.Enabled = True
            End If
        Else
            CheckBox8.Enabled = False
            CheckBox9.Enabled = False
            CheckBox10.Enabled = False
            CheckBox11.Enabled = False
            TextBox10.Enabled = False
            TextBox11.Enabled = False
            TextBox12.Enabled = False
            TextBox13.Enabled = False
            Label2.Enabled = False
            Label3.Enabled = False
            Label4.Enabled = False
            Label6.Enabled = False
        End If
    End Sub

    Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
        If CheckBox10.Checked = True Then
            TextBox10.Enabled = True
            Label2.Enabled = True
        Else
            TextBox10.Enabled = False
            Label2.Enabled = False
        End If
    End Sub

    Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
        If CheckBox9.Checked = True Then
            TextBox11.Enabled = True
            Label3.Enabled = True
        Else
            TextBox11.Enabled = False
            Label3.Enabled = False
        End If
    End Sub

    Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged
        If CheckBox11.Checked = True Then
            TextBox12.Enabled = True
            Label4.Enabled = True
        Else
            TextBox12.Enabled = False
            Label4.Enabled = False
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked = True Then
            TextBox13.Enabled = True
            Label6.Enabled = True
        Else
            TextBox13.Enabled = False
            Label6.Enabled = False
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            TextBox1.Enabled = True
            TextBox3.Enabled = True
            GroupBox4.Enabled = True
        Else
            TextBox1.Enabled = False
            TextBox3.Enabled = False
            GroupBox4.Enabled = False
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox4.Enabled = True
            TextBox5.Enabled = True
            GroupBox5.Enabled = True
        Else
            TextBox4.Enabled = False
            TextBox5.Enabled = False
            GroupBox5.Enabled = False
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            TextBox6.Enabled = True
            TextBox7.Enabled = True
            GroupBox6.Enabled = True
        Else
            TextBox6.Enabled = False
            TextBox7.Enabled = False
            GroupBox6.Enabled = False
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            TextBox8.Enabled = True
            TextBox9.Enabled = True
            GroupBox7.Enabled = True
        Else
            TextBox8.Enabled = False
            TextBox9.Enabled = False
            GroupBox7.Enabled = False
        End If
    End Sub

    Private Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox16.CheckedChanged
        If CheckBox16.Checked = True Then
            Label15.Visible = True
            CheckBox12.Enabled = True
            CheckBox13.Enabled = True
            CheckBox14.Enabled = True
            CheckBox15.Enabled = True
            If CheckBox14.Checked = True Then
                Label14.Enabled = True
                Button9.Enabled = True
            End If
            If CheckBox13.Checked = True Then
                Label13.Enabled = True
                Button10.Enabled = True
            End If
            If CheckBox15.Checked = True Then
                Label12.Enabled = True
                Button11.Enabled = True
            End If
            If CheckBox12.Checked = True Then
                Label11.Enabled = True
                Button12.Enabled = True
            End If
        Else
            Label15.Visible = False
            CheckBox12.Enabled = False
            CheckBox13.Enabled = False
            CheckBox14.Enabled = False
            CheckBox15.Enabled = False
            Label11.Enabled = False
            Label12.Enabled = False
            Label13.Enabled = False
            Label14.Enabled = False
            Button9.Enabled = False
            Button10.Enabled = False
            Button11.Enabled = False
            Button12.Enabled = False
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Label14.Text = "0"
        Label14.ForeColor = Color.White
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Label13.Text = "0"
        Label13.ForeColor = Color.White
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Label12.Text = "0"
        Label12.ForeColor = Color.White
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Label11.Text = "0"
        Label11.ForeColor = Color.White
    End Sub

    Private Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox14.CheckedChanged
        If CheckBox14.Checked = True Then
            Label14.Enabled = True
            Button9.Enabled = True
        Else
            Label14.Enabled = False
            Button9.Enabled = False
        End If
    End Sub

    Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged
        If CheckBox13.Checked = True Then
            Label13.Enabled = True
            Button10.Enabled = True
        Else
            Label13.Enabled = False
            Button10.Enabled = False
        End If
    End Sub

    Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged
        If CheckBox15.Checked = True Then
            Label12.Enabled = True
            Button11.Enabled = True
        Else
            Label12.Enabled = False
            Button11.Enabled = False
        End If
    End Sub

    Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
        If CheckBox12.Checked = True Then
            Label11.Enabled = True
            Button12.Enabled = True
        Else
            Label11.Enabled = False
            Button12.Enabled = False
        End If
    End Sub

    Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Label11.Text = "0"
        Label12.Text = "0"
        Label13.Text = "0"
        Label14.Text = "0"
        Label15.Text = "0"
        Label11.ForeColor = Color.Black
        Label12.ForeColor = Color.Black
        Label13.ForeColor = Color.Black
        Label14.ForeColor = Color.Black
        Label15.ForeColor = Color.Black
    End Sub

Comments

Sign in to comment.
BigSteve   -  Mar 16, 2012

< http://picpaste.com/fail.JPG > image of all this code failing

 Respond  
Bielie   -  Mar 25, 2011

Looks cool please make it in to an exe file to run it. :)

 Respond  
Merbo   -  Mar 12, 2011

Post a file, getting the source isnt too swell for those with different builds of an OS. Try posting the .vb or .vbs or compiled .exe.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.