SoftModalMessageBox的软件源码

Private Declare Function SoftModalMessageBox& Lib "user32" (ByVal Messages As Long)
Private Type MSGBOXPARAMS
Size As Long
Owner As Long
Instance As Long
Text As Long
Caption As Long
Style As Long
Icon As Long
HelpID As Long
CallBack As Long
LangID As Long
End Type
Private Type MSGBOXDATA
Param As MSGBOXPARAMS
Owner As Long
LangID As Integer
ButtonID As Long
ButtonText As Long
Button1 As Long
Button2 As Long
CancelID As Long
Time As Long
End Type
Public Function MsgBoxNew&(ByVal Text As String, ByVal Mode As Long, ByVal Title As String, ByVal Hwnd As Long, ByVal Time As Long, ParamArray CMDs())
Dim MD As MSGBOXDATA, Button&(), Caption$(), i&
With MD
.Button1 = UBound(CMDs) + 1
If .Button1 > 0 Then
ReDim Button(.Button1 - 1), Caption(.Button1 - 1)