vbs窗口怎样做到不可关闭

vbs窗口的×是点不了的怎么弄，不要do loop，就像我初中机房的电子教室系统的×点不了一样

通过窗体的UserForm_QueryClose事件可以设置。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = 1
End Sub

当CloseMode的值为0(vbFormControlMenu)时，表示用户点击了“关闭”按钮。Cancel=1也可以写成Cancel=True，表示关闭操作被取消，即用户点击关闭也没用，因为点了就被取消操作了，从而实现用户禁止关闭窗体。