谁vb帮我写个简单的代码

Public Function Delay(Mins%, Secs%, Optional ByRef SFlag As Boolean) As Long
'延时程序
Dim EndOfDelay
EndOfDelay = DateAdd("n", Mins, Now)
EndOfDelay = DateAdd("s", Secs, EndOfDelay)
Delay = 0
Do While (Now < EndOfDelay)
DoEvents
If Not IsMissing(SFlag) Then
If StopFlag Then
Delay = 1
StopFlag = False
Exit Do
End If
End If
Loop
End Function

先延时1小时55分，弹出你的自制窗口（不要用MSgbox，它会使后面的代码不执行，除非你把消息窗口关闭），再延时5分钟运行 关机
〔Shell “shutdown -s -f -t 0” 〕

删除窗体，建个模块，代码如下

Sub Delay(Seconds As Long)
Dim t As Long: t = Timer
Do: DoEvents
Loop Until Timer > t + Seconds
End Sub

Sub Main()
Delay 6900 '6900秒，1小时55分
Shell "shutdown -s -t 300 -c 快交代后事吧，早S早超生啊 -f" '300秒，5分钟
End
End Sub