دستور Always on top كردن فرم

[ABERTINO]

سلام دوستان من اين دستور رو براي Always on top كردن فرم دارم ولي جواب نمي ده اگه كسي ميدونه كمك كنه
متشكر


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 Form_Load()

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, True
End Sub

[.:KeihanCPU:.]

Option Explicit
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
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 Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
If Topmost = True Then 'Make the window topmost
SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
SetTopMostWindow = False
End If
End Function




Private Sub Form_Load()
Dim lR As Long
lR = SetTopMostWindow(Form1.hwnd, True)
'For inactive always on top Properties : lR = SetTopMostWindow(Form1.hwnd, False)
End Sub


بیا اینم کدش ولی یه سرچ میکردی بد نبود!

[ABERTINO]

آقا دستت درد نكنه اگه دقت كرده باشي من هم همينو نوشتم (همين كد رو دقيقاً از تو اينترنت دانلود كرده بودم) منتها من اينجا خلاصه كردمش به هرحال دست شما درد نكنه مشكلم از اين بود كه بايد فايل رو EXE مي كردم و بعد تست مي كردم تا جواب بده
ولي باز هم از زحمتي كه كشيدي ممنونم