مینیمایز نشدن برنامه

[S_VB.max]

سلام

من میخوام برنامه با کلیدهای win+d از صفحه کلید و با دکمه Desktop از تسک بار مینمیایز نشود
چطوری میتونم این کار رو انجام بدم؟
با تشکر

[isaac23]

سلام دقیق منظورت رو نگرفتم ولی این سورس میاد پنجره رو همیشه به حالت فعال نگه میداره و هر کاری کنی میاد Top قرار میگره

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

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

[S_VB.max]

ممنون دوست عزیز کمک میکنی
من برنامه ای درست کردم که با بالا اومدن ویندوز اجرا میشه حالا میخوام هیچ وقت مینیمایز نشه

نمیدونم چه کدی بنویسم تا برنامه با فشار دادن کلیدهای win+d از صفحه کلید و یا با کلیک دکمه Desktop از تسک بار مینیمایز نشه؟؟؟؟
(از نوار عنوان برنامه هم دکمه مینیمایز را غیرفعال کردم)

[S_VB.max]

چرا کد زیر برای کلیدهای win+d و دکمه Desktop کار نمی کنه؟

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.WindowState = vbNormal
End If
End Sub

بجاش چه کدی بنویسم؟؟؟

[isaac23]

چرا کد زیر برای کلیدهای win+d و دکمه Desktop کار نمی کنه؟

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.WindowState = vbNormal
End If
End Sub

بجاش چه کدی بنویسم؟؟؟

اون کدی که من بهتون دادم رو تست کردید؟

[S_VB.max]

تست کردم
کد شما اون چیزی نیست که من می خوام