16/06/16 05:50:34.48 eYYSreG4.net
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" _
(ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
'Unicode文字対応のMsgBox関数（簡易版）
Function MsgBoxW( _
prompt As String, _
Optional buttons As VbMsgBoxStyle = vbOKOnly, _
Optional title As String _
) As VbMsgBoxResult
MsgBoxW = MessageBox(GetActiveWindow, StrPtr(prompt), StrPtr(title), buttons)
End Function
Sub Main()
Call MsgBoxW(ChrW(&H2611) & "checkbox", vbExclamation, ChrW(&H260E) & "タイトル")
End Sub