فرم 1 همیشه روی فرم 2

[loads]

سلام دوستان
من تو پروژه دوتا فرم دارم (form1 و form2 ) که Always on Top هر دوشون فعال هست ولی میخوام form1 همیشه روی form2 باشه حتی اگر فوکوس روی form2 بود
توجه : از show vbmodal و تایمر نمیتونم استفاده کنم

[f.nabavi]

از api استفاده کن.
در ماژول کد :

Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const flags = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public 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

و در form_load کد:

SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, flags

رو قرار بده. این فرم روی تمام فرم ها و پنجره ها میاد.

[loads]

ممنون دوست من ، ولی مشکل اصلی اینه که وقتی یه پنجره جدید مثل My Computer باز میکنم بین این دو فرم قرار میگیره و همونطور که تو پست اول گفتم Always on Top هر دو فرم رو فعال کردم ولی میخوام فرم1 همیشه روی فرم 2 بمونه و هر بار هم پنجره جدیدی باز شد زیر این دو فرم قرار بگیره
بازهم ممنونم

[l3ai3ak]

اگربه این شکل لود کنی فرم دو روی فرم یک میمونه و فرم یک نیز قابل فکوس هست . درضمن اگر اون صفر رو یک کنی دیگه فرم یک قابل فکوس نیست .


Form2.Show 0, Me