جعل نموذج الفيجوال بيسك دائماً في المقدمه

بسم الله

يمكن عمل ذلك بدالة SetWindowPos وهي دالة API وتكتب بالشكل التالي

SetWindowPos Me.hwnd , -1 , 0 , 0 , 0 , 0 , 3

والله اعلم

اخى العزيز Amir Imam كما ذكر الاخ HSMH الموكر انه يمكن استعمال ال API وإليك الطريقة

اولا بداخل الفورم فى قسم ال Declarations قم بلصق الكود التالى

Option Explicit
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 HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = 1 Or 2

وبداخل الفورم لود قم بنسخ الكود التالى

  Dim TempValue As Long
	TempValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW)

ويوجد مرفق به مشروع صغير

AlwaysOnTop.zip

هذا فعلا ما كنت ابحث عنه وجزاكم لله كل خير