Little help?

Code:

---

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)

Quote:

---

Originally Posted by |2eM!x

Code:

---

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:

Code:

---


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

---

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

VB Code:

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

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?

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

Quote:

---

Originally Posted by |2eM!x

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?