ممكن شرح هالكود

السلام عليكم

Private Sub Form_Load()
DoCmd.Maximize
ChangeProperty "StartupShowDBWindow", dbBoolean, False
Set clsMouseWheel = New CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
   Dim i As Integer
   For i = 1 To CommandBars.Count
   CommandBars(i).Enabled = False
   Next i
End Sub