Function VbsShowMsgBox(msgKbn, ansKbn, title, msg)
	Dim ret

	Dim btn

	Select Case msgKbn
		Case "I":
			'情報
			btn = 64
		Case "W":
			'警告
			btn = 48
		Case "Q"
			'質問
			btn = 32
		Case "E"
			'エラー
			btn = 48
		Case Else
			'上記以外
			btn = 16
	End Select

	Select Case ansKbn
		Case "1":
			'ＯＫ
			btn = btn + 0
		Case "2":
			'ＯＫ＋キャンセル
			btn = btn + 1
		Case "3"
			'はい＋いいえ
			btn = btn + 4
	End Select

	Select Case MsgBox(msg, btn, title)
		Case 1, 6
			ret = 0
		Case Else
			ret = -1
	End Select

	VbsShowMsgBox = ret
End Function