Option Compare Database
Option Explicit

'(ShowWindow)
Private Declare Function ShowWindow Lib "USER32" (ByVal hWnd&, ByVal nCmdShow&) As Long

Private Const SW_HIDE = 0            '指定のウインドウを非表示にし、他のウインドウをアクティブﾞ化する
Private Const SW_MINIMIZE = 6        '指定のウインドウをアイコン化し、タスクリスト内のトップレベルウインドウをアクティブ化する
Private Const SW_RESTORE = 9         'ウインドウをアクティブ化し、表示する。ウインドウがアイコン化または最大化されているときは、元の位置とサイズに復元する
Private Const SW_SHOW = 5            'ウインドウをアクティブ化し、現在の位置とサイズで表示する
Private Const SW_SHOWMAXIMIZED = 3   'ウインドウをアクティブ化し、最大表示する
Private Const SW_SHOWMINIMIZED = 2   'ウインドウをアクティブ化し、アイコン化する
Private Const SW_SHOWMINNOACTIVE = 7 'ウインドウをアイコン化する。現在アクティブなウインドウは、アクティブなままにする。
Private Const SW_SHOWNA = 8          'ウインドウを表示する。現在アクティブなウインドウは、アクティブなままにする。
Private Const SW_SHOWNOACTIVATE = 4  '以前に表示された位置とサイズで表示する。現在アクティブなウインドウは、アクティブなままにする。
Private Const SW_SHOWNORMAL = 1      'SW_RESTORE と同じ

'Windowハンドル取得
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hWndNotepad As Long 'ﾒﾓ帳のWindowハンドル
Dim whWndProgman As Long 'Program ManagerのWindowハンドル

Private Sub cmdAccess_SW_SHOWMAXIMIZED_Click()
    'Accessを最大化
    ShowWindow hWndAccessApp, SW_SHOWMAXIMIZED
End Sub

Private Sub cmdAccess_SW_SHOWMINIMIZED_Click()
    'Accessを最小化
    ShowWindow hWndAccessApp, SW_SHOWMINIMIZED
End Sub

Private Sub cmdAccess_SW_SHOWNORMAL_Click()
    'Accessを標準ｻｲｽﾞに
    ShowWindow hWndAccessApp, SW_SHOWNORMAL
End Sub

Private Sub cmdDeskTop_SW_HIDE_Click()
    'ﾃﾞｽｸﾄｯﾌﾟｱｲｺﾝを隠す
    ShowWindow whWndProgman, SW_HIDE
End Sub

Private Sub cmdDeskTop_SW_SHOWNA_Click()
    'ﾃﾞｽｸﾄｯﾌﾟｱｲｺﾝを隠す表示
    ShowWindow whWndProgman, SW_SHOWNA
End Sub

Private Sub cmdNotepad_SW_SHOWMAXIMIZED_Click()
    'ﾒﾓ帳を最大化
    ShowWindow hWndNotepad, SW_SHOWMAXIMIZED
End Sub

Private Sub cmdNotepad_SW_SHOWMINIMIZED_Click()
    'ﾒﾓ帳を最小化
    ShowWindow hWndNotepad, SW_SHOWMINIMIZED
End Sub

Private Sub cmdNotepad_SW_SHOWNORMAL_Click()
    'ﾒﾓ帳を標準ｻｲｽﾞに
    ShowWindow hWndNotepad, SW_SHOWNORMAL
End Sub

Private Sub Form_Activate()
    'ﾒﾓ帳のウィンドウハンドル取得
    hWndNotepad = FindWindow(vbNullString, "無題 - ﾒﾓ帳")
    'Program Managerのウィンドウハンドル取得
    whWndProgman = FindWindow("Progman", "Program Manager")
End Sub

Private Sub Form_Open(Cancel As Integer)
    'ﾒﾓ帳を起動
    Shell "notepad", vbNormalFocus
End Sub