用SetWindowPos来实现~~~
先声明~~
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
然后~~~
SetWindowPos
MyForm.hWnd,
-1, 0, 0, 0, 0, &H1 Or &H2
myform随便添咯~~主要是那个-1~~~ 取消always on top的话，改成-2就好~~
呵呵~~从vb nicknacks现翻的~~
原文见此
