BU KOD ara çubuğunu kaldıracak
modül
Option Explicit
Private TaskBarhWnd As Long

Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80

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
Public Sub HideTaskBar()
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End Sub
Public Sub ShowTaskBar()
If TaskBarhWnd <> 0 Then
Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End If
End Sub


buda formun açılışına

HideTaskBar

buda formun kapanışına


ShowTaskBar

bu sana örnek olsun
kardeş bu istediğin olayların hepsini yapan kodlar kod deposunda var
ara çubuğu gizleme ,alt+f4 kitle, şift kitleme, alt+tab kitle ,tasarıma geçişi engelle hatta ve hatta accessin kesinlikle kapatılmasını engelleme ve ctrl+dell kitleme yani istediğin her şey var sadece biraz uğraş gözünü seveyim