1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Declare Function User32MsgBox Lib \"user32\" Alias \"MessageBoxW\" _
                       (Optional ByVal hWnd    As Long, _
                        Optional ByVal Prompt  As Long, _
                        Optional ByVal Title   As Long, _
                        Optional ByVal Buttons As Long) As Long
'______________________________________________________________________
 
Public Function MsgBoxW(cPrompt           As Variant, _
                        Optional cButtons As VbMsgBoxStyle = vbOKOnly, _
                        Optional cTitle   As String) As Long
  MsgBoxW = User32MsgBox(0, StrPtr(cPrompt), StrPtr(cTitle), cButtons)
End Function
'______________________________________________________________________
 
Sub MsgBoxW_Test()
    Call MsgBoxW(\"Text zpravy\", vbCritical, \"Nadpis\")
End Sub

Bla bla bla

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla

 

Bla bla bla

Bla bla bla