Jump to content
--> Place your ad text here <--
Get Free Banners - Giveaway MaxCheaters.com
We're Rebuilding – Join Our Staff Team

Auto Talker/Spammer | VB

Sponz

By Sponz
in Guides & Tutorials

 Share

Recommended Posts

Sponz Newbie

Sponz

Posted
Posted

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.

gui.png

This is the GUI that matches the snippet:

clean.png

 

Credits: [glow=red,2,300]Virtual Insanity[/glow]

Sponz Newbie

Sponz

Posted
  • Author
Posted 
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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing


×
×
  • Create New...