Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
Private Sub Command1_Click()
Dim R As Integer, dwReturnCode As Long, wReserved As Integer
R = ExitWindows(dwReturnCode, wReserved)
End Sub
Private Sub Command1_Click()
Dim R As Integer, dwReturnCode As Long, wReserved As Integer
R = ExitWindows(dwReturnCode, wReserved)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货