Always on top در ویژوال بیسیک 2005

کسی می دونه چجوری میشه تو ویژوال بیسیک 2005 فورم مون رو always on top کرد
من قبلا با ویژوال بیسیک 6 یه تولبار نوشتم که باید همیشه بالا قرار بگیره و کدش رو هم داشتم و شد
ولی از وقتی که اونو به ویژوال 2005 تبدیل کردم دیگه کار نمی ده
(برای تبدیل کدهای اون به کد های ویژوال 2005 از خود برنامهویژوال بیسیک 2005 استفاده کردم

کد:

---

Option Explicit

Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Declare Function GetActiveWindow Lib "user32" () As Long
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 Sub MakeWindowAlwaysTop(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Private Sub MakeWindowNotTop(hwnd As Long)
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()
MakeWindowAlwaysTop Me.hwnd
End Sub

---