Menampilkan Message Box Sesuai Keadaan

1. Menampilkan Saat Keadaan Aplikasi Error Fatal
Source Code:
Buka Form Baru Dan Buat 1 Command Button Dan Beri Nama "Command1" ,Kemudian Klik Dua Kali Button Tersebut Dan Stelah Itu Masukan Code Dibawah Ini .

Private Sub Command1_Click()
MsgBox "Hello World!", vbCritical
End Sub

Maka Ketika DiRun Dan Diklik Akan Seperti Ini

2. Menampilkan Saat Keadaan Aplikasi Error

Private Sub Command1_Click()
MsgBox "Hello World!", vbExclamation
End Sub

Maka HasilNya Akan Seperti Ini