كود إخفاء شريط المهام لايعمل بعد التحزيم

السلام عليكم ورحمة الله وبركاته

لقد أستخدمت الكود التالي لإخفاء شريط المهام وإظهاره عند المرور عليه ونجحت في ذلك لكن المشكله أنه بعد تحزيم المشروع لا يعمل هذا الكود عندما أمرر الماوس على منطقة شريط المهام ,فما الخلل "الكود يخفي الشريط عند تشغيل المشروع ويظهره عند الخروج من البرنامج ولكن الخلل أنه لايظهره عند المرور عليه كما كان يفعل قبل التحزيم"

وهذا هو الكود المستخدم

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Private Type POINTAPI
	X As Long
	Y As Long
End Type
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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim TaskHwnd As Long
Dim pt As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 300
TaskHwnd = FindWindow("Shell_traywnd", vbNullString)
End Sub

Sub ShowTask()
	SetWindowPos TaskHwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub
Sub HideTask()
	SetWindowPos TaskHwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub

Private Sub Form_Unload(Cancel As Integer)
Timer1.Interval = 0
ShowTask
End Sub

Private Sub Timer1_Timer()
Static Status As Boolean
GetCursorPos pt
If pt.Y * Screen.TwipsPerPixelY > Screen.Height - 150 Then
	ShowTask
	Status = False
Else
	If Not Status Then
	   HideTask
	   Status = True
	End If
End If
End Sub