Little help?

[|2eM!x]

Private Sub Check1_Click()
    If vbYes = MsgBox("Are you sure you want to Bring to front?", _
                      vbQuestion + vbYesNo, _
                      "Countdown Timer") Then
If vbNo Then
Check1.Click = False
End Sub

so I want it, if the user selects no, that the box will not be selected..I'm sure thats easy
what I have doesnt work (whats new)

[jhermiz]

Private Sub Check1_Click()
    If vbYes = MsgBox("Are you sure you want to Bring to front?", _
                      vbQuestion + vbYesNo, _
                      "Countdown Timer") Then
If vbNo Then
Check1.Click = False
End Sub

so I want it, if the user selects no, that the box will not be selected..I'm sure thats easy
what I have doesnt work (whats new)

Try this:

If(MsgBox("Are you sure you want to Bring to front?", _
                      vbQuestion + vbYesNo, _
                      "Countdown Timer")=vbNo) Then
   Me.Check1.Value=False
else
   Me.Check1.Value=True
End If

[RhinoBull]

You may get in the infinite loop by doing such stuff - you better control that from command button:

Private Sub Command1_Click()
    If MsgBox("Are you sure you want to Bring to front?", _
                      vbQuestion + vbYesNo, _
                      "Countdown Timer") = vbYes Then
         Check1.Value = vbChecked
    Else
         Check1.Value = vbUnchecked
    End If
End Sub

[|2eM!x]

okay so i added a button like you said, seeing as its a button i cant have value.check = 1, so i ignore that..
now i want it to make it so all msgboxs come up as vbnormalfocus, how would i do that? msgbox = vbnormalfocus?

[dglienna]

you can't specify that. it is the default, anyways. if you don't like it, you can always make your own.

[MartinLiss]

okay so i added a button like you said, seeing as its a button i cant have value.check = 1....

What are you trying to say?