Private Sub Command1_Click()
Set ws = CreateObject("WScript.shell")
button = ws.popup("确认删除", 3, "现在时间(本窗体3秒自动关闭)", vbYesNo + vbDefaultButton2) '3是秒数
Print button
End Sub
Set ws = CreateObject("WScript.shell")
button = ws.popup("确认删除", 3, "现在时间(本窗体3秒自动关闭)", vbYesNo + vbDefaultButton2) '3是秒数
Print button
End Sub