问个很菜的问题?怎样才能使程序运行后始终在最前面,谢谢了~!!!

win32api SetWindowPos

sub OnTop(lngHwnd as long)
SetWindowPos lngHwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_NOACTIVATE
end sub

sub NoTop(lnghwnd as long)
SetWindowPos lngHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
end sub

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
Const SWP_SHOWWINDOW = &H3

private command1_click()
retvalue = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, SWP_SHOWWINDOW) '设置窗口在最前端显示
end sub

private command2_click()
retvalue = SetWindowPos(Me.hwnd, 1, 0, 0, 0, 0, SWP_SHOWWINDOW) '设置窗口不在最前端显示
end sub

谢谢2、3、4楼的高手帮忙，小菜我还是有疑问，能否用CheckBox 控件来实现窗口置顶的操作，具体代码不知如何，谢谢各位能给予指导。

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
Const SWP_SHOWWINDOW = &H3

Private Sub Check1_Click()
If Check1.Value = 1 Then
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_SHOWWINDOW
Else
SetWindowPos Me.hwnd, 1, 0, 0, 0, 0, SWP_SHOWWINDOW
End If
End Sub

谢谢6楼高手的解答，小菜我非常感谢您