Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer
Private Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallBack As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Declare Function midiOutReset Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Const MMSYSERR_NOERROR = 0
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
Dim hMidiOut As Long
① 「人権」を振りかざす者を「プロ市民」と嫌悪するが、チベット問題だけは例外的に自ら「人権」を振りかざす。
② GHQに「押付けられた」という点で憲法を問題にするが、BSE牛肉の輸入押付けはあまり問題視しない。
③ 中韓に「靖国参拝中止」を迫られると「内政干渉」と怒るが、米国に改憲を迫られると「その通り」と歓迎する。
④ 中韓の反日ナショナリズムを嫌悪するが、自分は日本の反中・反韓ナショナリスト。
⑤ 「在日」や「同和」が犯罪で逮捕されると喜々とするが、「無職男」が逮捕されると話題に関わらないようにする。