Why dusn't this code Work?

[Aaron Rogers118]

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            MessageBox.Show("TEST", "TEST", MessageBoxButtons.OK)
        Else
            MessageBox.Show("TEST", "TEST", MessageBoxButtons.OKCancel)
            If MessageBoxButtons.Cancel = Click Then
                MessageBox.Show("Are you shor you want to quit?", "TEST", MessageBoxButtons.YesNo, MesssageBoxIcon.Question)
                If MessageBoxButtons.Yes = Click Then
                    End
                End If
            End If
        End If

    End Sub
End Class

[zmanalpha]

Sorry to hear you're having trouble, here is a corrected version of that.(Note there's probably a million other ways to do this.)

Code:

If CheckBox1.Checked = True Then
            MsgBox("Test", MsgBoxStyle.OkOnly, "Test")
        Else
            If MsgBox("test", MsgBoxStyle.OkCancel, "test") = MsgBoxResult.Cancel Then
                If MsgBox("Are You Sure?", MsgBoxStyle.YesNo, "Test") = MsgBoxResult.Yes Then
                    Me.Close()
                End If
            End If
        End If

[brandonio21]

Yes, I am pretty sure that ZManAlpha has the correct version, but be sure to test it and make sure that it does everything you need it to!

[Aaron Rogers118]

IT WORKS!!!!! Thanks!