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
