>>757 非表示に成功。
DispStates1 = IsWindowVisible(hWin): 'ソフト全体のハンドルより表示状態を取得
hBtn=GetDlgItem(hWin, IDC_BTN2): '個別表示物のハンドル(枠番号)を取得, hBtn=0でエラー
If (hBtn =0) Then
DispStates2 = -1: 'ハンドルの取得に失敗
Else
DispStates2 = IsWindowVisible(hBtn)
EndIf
'hBtn = 0: DispStates3 = IsWindowVisible(hBtn): 'エラーを示すハンドルでの取得: 'DispStates3 =0,(その他の場合)を返す


MessageBox(TakaHWND, "Hello ("+Str$(DispStates1)+") ("+Str$(DispStates2)+")"+Str$(DispStates3), "Messagebox caption", MB_ICONINFORMATION)

'https://msdn.microsoft.com/ja-jp/library/cc411211.aspx
'https://msdn.microsoft.com/ja-jp/library/cc364819.aspx
'http://blog.goo.ne.jp/masaki_goo_2006/e/41002821d5323a9b8c6efbb6b78c079c
If (DispStates2 = 0) Then
'非表示
DispStates3 = ShowWindow(hBtn, SW_SHOW ): '表示を指示
ElseIf (DispStates2 = 1) Then
'表示
DispStates3 = ShowWindow(hBtn, SW_HIDE ): '非表示を指示
EndIf