non ho una risposta precisa

cmq questa è la funzione di sistema che le gestisce

Public Declare Function MessageBox Lib _
"user32" Alias "MessageBoxA" (ByVal _
hWnd As Long, ByVal lpText As String, _
ByVal lpCaption As String, ByVal wType _
As Long) As Long

credo che dovrai lavorare parecchio sul wType as long