Menutup semua program dalam pemrograman visual basic

kali ini saya akan berbagi tips dan trik pemograman visual basic yaitu cara menutup semua program.
langsung aja brow....!!!

buat dulu sebuah form dan tambahkanlah 1 command button gunkan lah nama "Tutup Semua Program"

From Declaration

Private Declare Function BroadcastSystemMessage _

Lib "user32" (ByVal dw As Long, pdw As Long, _

ByVal un As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long

Pendeklarasian variabel yang diperlukan

Const BSF_POSTMESSAGE = &H10

Const BSM_APPLICATIONS = &H8

Const WM_SYSCOMMAnd = &H112

Menutup aplikasi ketika Command1 di klik

Private Sub Command1_Click()

BroadcastSystemMessage BSF_POSTMESSAGE, _

BSM_APPLICATIONS, WM_SYSCOMMAnd, &HF060&, ByVal 0&

End Sub