Option Explicit
'■Windowの位置やサイズ■
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Const HWND_TOP = 0           '手前にｾｯﾄ
    Private Const HWND_BOTTOM = 1        '後ろにｾｯﾄ
    Private Const HWND_TOPMOST = -1      '常に手前にｾｯﾄ
    Private Const HWND_NOTOPMOST = -2    '常に手前、解除
    Private Const SWP_SHOWWINDOW = &H40  '表示する
    Private Const SWP_NOSIZE = &H1       'ｻｲｽﾞを設定しない
    Private Const SWP_NOMOVE = &H2       '位置を設定しない

Private Sub Command1_Click()
    
    'ｳｨﾝﾄﾞｳを手前に設定します
    SetWindowPos Me.hWnd, HWND_TOPMOST, Me.left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, vbNull, vbNull, vbNull
End Sub

Private Sub Command2_Click()

    'ｳｨﾝﾄﾞｳを手前に設定を解除します
    SetWindowPos Me.hWnd, HWND_NOTOPMOST, Me.left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, vbNull, vbNull, vbNull
End Sub