如何在系统关闭时通知VB让程序关闭呢?

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 2 Then'系统关闭
Cancel = False
Else
Cancel = True
End If
End Sub

用程序截取系统关机，然后让程序关闭后，使用关机代码关闭系统。