Jump to content
MaxCheaters Official Group at Discord
--> Place your ad text here <--

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]

Link to comment
Share on other sites
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

Link to comment
Share on other sites

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...