Question

VB中信息窗口MSGBOX一点确定就弹出很多窗口，怎么弄啊？

我先点确定，就弹出个窗口，再点确定，又弹出个窗口·····

Answer 1

Private Sub Form_Click()
a = MsgBox("", vbOKOnly, "")
Do While a = 1
a = MsgBox("", vbOKOnly, "")
Loop
End Sub