Public Class Form1
    Sub message()
        If TextBox1.Text = "" And TextBox2.Text = "" Then
            MsgBox("Ada kotak yang belum diisi")
        End If
        If TextBox1.Text = "" And TextBox2.Text <> "" Then
            MsgBox("Kotak nomer 1 belum diisi")
        End If
        If TextBox1.Text <> "" And TextBox2.Text = "" Then
            MsgBox("Kotak nomer 2 belum diisi")
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value <> 0 Then
            Timer1.Interval = NumericUpDown2.Value
            Timer1.Start()
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value <> 0 Then
            MsgBox("Jumlah Spam harus lebih dari 0")
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value = 0 Then
            MsgBox("Interval harus lebih dari 0")
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value = 0 Then
            MsgBox("Interval dan Jumlah Spam harus lebih dari 0")
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        message()
       End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If NumericUpDown1.Value = 0 Then
            Timer1.Stop()
            Me.Show()
        Else
            NumericUpDown1.Value -= 1
            If RadioButton1.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.Information, TextBox2.Text)
            End If
            If RadioButton2.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.Critical, TextBox2.Text)
            End If
            If RadioButton3.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.AbortRetryIgnore, TextBox2.Text)
            End If
            If RadioButton4.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.ApplicationModal, TextBox2.Text)
            End If
            If RadioButton5.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.Exclamation, TextBox2.Text)
            End If
            If RadioButton6.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxHelp, TextBox2.Text)
            End If
            If RadioButton7.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxRight, TextBox2.Text)
            End If
            If RadioButton8.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxRtlReading, TextBox2.Text)
            End If
            If RadioButton9.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxSetForeground, TextBox2.Text)
            End If
            If RadioButton10.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.OkOnly, TextBox2.Text)
            End If
            If RadioButton11.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.Question, TextBox2.Text)
            End If
            If RadioButton12.Checked Then
                MsgBox(TextBox1.Text, MsgBoxStyle.YesNoCancel, TextBox2.Text)
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" And TextBox2.Text = "" Then
            MsgBox("Ada kotak yang belum diisi")
        End If
        If TextBox1.Text = "" And TextBox2.Text <> "" Then
            MsgBox("Kotak nomer 1 belum diisi")
        End If
        If TextBox1.Text <> "" And TextBox2.Text = "" Then
            MsgBox("Kotak nomer 2 belum diisi")
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value <> 0 Then
            Me.Hide()
            Timer1.Interval = NumericUpDown2.Value
            Timer1.Start()
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value <> 0 Then
            MsgBox("Jumlah Spam harus lebih dari 0")
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value = 0 Then
            MsgBox("Interval harus lebih dari 0")
        End If
        If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value = 0 Then
            MsgBox("Interval dan Jumlah Spam harus lebih dari 0")
        End If
    End Sub

    Private Sub SpammingProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammingProgramToolStripMenuItem.Click
        Form2.Show()

    End Sub

    Private Sub SpammingTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammingTextToolStripMenuItem.Click
        Form3.Show()

    End Sub
End Class