Private Const NV_CLOSEMSGBOX = &H5000&

Private 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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long

Private mTitle As String
Private mPause As Long
Private mHandle As Long


Public Function MsgBoxPause(ByVal hwnd As Long, ByVal inPrompt As String, _
ByVal inTitle As String, ByVal inButtons As Long, _
ByVal inPause As Integer) As Integer
mTitle = inTitle: mPause = inPause * 1000
SetTimer hwnd, NV_CLOSEMSGBOX, mPause, AddressOf NewTimerProc
MsgBoxPause = MessageBox(hwnd, inPrompt, inTitle, inButtons)
End Function


Public Function NewTimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wparam As Long, _
ByVal lparam As Long) As Long
KillTimer hwnd, wparam
If wparam = NV_CLOSEMSGBOX Then
mHandle = FindWindow("#32770", mTitle)
If mHandle <> 0 Then
SetForegroundWindow mHandle
SendKeys "{enter}"
End If

End If
End Function

Dim s As Integer
s = 2 ' عدد الثواني
mResult = MsgBoxPause(hwnd, "هذه الرسالة ستختفي تلقائياً بعد " & s & " ثانية . ", _
"العنوان", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, s)

Dim s As Integer
s = 2 ' عدد الثواني
mResult = MsgBoxPause(hwnd, "هذه الرسالة ستختفي تلقائياً بعد " & s & " ثانية . ", _
"العنوان", vbOKCancel + vbExclamation + vbDefaultButton2 + vbMsgBoxRight + vbMsgBoxRtlReading, s)