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