怎样让一个窗体不关闭？

bjcompass

库登录后有一个控制面板窗体“freemain" ,许多操作按键都在这个窗体上。有时候这个窗体会意外关闭，此时只能通过菜单操作，很不方便。请问怎样让这个窗体在程序退出前一直可见。

aslxt

关闭该窗体前发出确认消息，如果用户确认了就关闭，顺便把数据库也关闭了，否则就取消关闭。
Private Sub Form_Unload(Cancel As Integer)

  If MsgBox("要退出吗", vbYesNo) = vbYes Then
    DoCmd.Quit
  Else
    Cancel = True
  End If
End Sub