Code:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If RadioButton1.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add(TextBox2.Text)
ElseIf RadioButton2.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("cyan:" & TextBox2.Text)
ElseIf RadioButton3.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("green:" & TextBox2.Text)
ElseIf RadioButton4.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("purple:" & TextBox2.Text)
ElseIf RadioButton5.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("red:" & TextBox2.Text)
ElseIf RadioButton6.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("white:" & TextBox2.Text)
ElseIf RadioButton8.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow1:" & TextBox2.Text)
ElseIf RadioButton10.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow2:" & TextBox2.Text)
ElseIf RadioButton12.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow3:" & TextBox2.Text)
ElseIf RadioButton7.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash1:" & TextBox2.Text)
ElseIf RadioButton9.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash2:" & TextBox2.Text)
ElseIf RadioButton11.Checked And RadioButton13.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash3:" & TextBox2.Text)
ElseIf RadioButton1.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("wave:" & TextBox2.Text)
ElseIf RadioButton1.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("wave2:" & TextBox2.Text)
ElseIf RadioButton1.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("scroll:" & TextBox2.Text)
ElseIf RadioButton1.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("shake:" & TextBox2.Text)
ElseIf RadioButton1.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("slide:" & TextBox2.Text)
ElseIf RadioButton2.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("cyan:" & "wave:" & TextBox2.Text)
ElseIf RadioButton2.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("cyan:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton2.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("cyan:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton2.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("cyan:" & "shake:" & TextBox2.Text)
ElseIf RadioButton2.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("cyan:" & "slide:" & TextBox2.Text)
ElseIf RadioButton3.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("green:" & "wave:" & TextBox2.Text)
ElseIf RadioButton3.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("green:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton3.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("green:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton3.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("green:" & "shake:" & TextBox2.Text)
ElseIf RadioButton3.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("green:" & "slide:" & TextBox2.Text)
ElseIf RadioButton4.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("purple:" & "wave:" & TextBox2.Text)
ElseIf RadioButton4.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("purple:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton4.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("purple:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton4.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("purple:" & "shake:" & TextBox2.Text)
ElseIf RadioButton4.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("purple:" & "slide:" & TextBox2.Text)
ElseIf RadioButton5.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("red:" & "wave:" & TextBox2.Text)
ElseIf RadioButton5.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("red:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton5.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("red:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton5.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("red:" & "shake:" & TextBox2.Text)
ElseIf RadioButton5.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("red:" & "slide:" & TextBox2.Text)
ElseIf RadioButton6.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("white:" & "wave:" & TextBox2.Text)
ElseIf RadioButton6.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("white:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton6.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("white:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton6.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("white:" & "shake:" & TextBox2.Text)
ElseIf RadioButton6.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("white:" & "slide:" & TextBox2.Text)
ElseIf RadioButton8.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow1:" & "wave:" & TextBox2.Text)
ElseIf RadioButton8.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow1:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton8.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow1:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton8.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow1:" & "shake:" & TextBox2.Text)
ElseIf RadioButton8.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow1:" & "slide:" & TextBox2.Text)
ElseIf RadioButton10.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow2:" & "wave:" & TextBox2.Text)
ElseIf RadioButton10.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow2:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton10.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow2:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton10.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow2:" & "shake:" & TextBox2.Text)
ElseIf RadioButton10.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow2:" & "slide:" & TextBox2.Text)
ElseIf RadioButton12.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow3:" & "wave:" & TextBox2.Text)
ElseIf RadioButton12.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow3:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton12.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow3:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton12.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow3:" & "shake:" & TextBox2.Text)
ElseIf RadioButton12.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("glow3:" & "slide:" & TextBox2.Text)
ElseIf RadioButton7.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash1:" & "wave:" & TextBox2.Text)
ElseIf RadioButton7.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash1:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton7.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash1:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton7.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash1:" & "shake:" & TextBox2.Text)
ElseIf RadioButton7.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash1:" & "slide:" & TextBox2.Text)
ElseIf RadioButton9.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash2:" & "wave:" & TextBox2.Text)
ElseIf RadioButton9.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash2:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton9.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash2:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton9.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash2:" & "shake:" & TextBox2.Text)
ElseIf RadioButton9.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash2:" & "slide:" & TextBox2.Text)
ElseIf RadioButton11.Checked And RadioButton17.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash3:" & "wave:" & TextBox2.Text)
ElseIf RadioButton11.Checked And RadioButton18.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash3:" & "wave2:" & TextBox2.Text)
ElseIf RadioButton11.Checked And RadioButton14.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash3:" & "scroll:" & TextBox2.Text)
ElseIf RadioButton11.Checked And RadioButton15.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash3:" & "shake:" & TextBox2.Text)
ElseIf RadioButton11.Checked And RadioButton16.Checked And TextBox2.Text <> Nothing Then
ListBox1.Items.Add("flash3:" & "slide:" & TextBox2.Text)