per VB6 (dal momento che non ti sei preoccupato di dircelo)
così puoi disabilitare la "X"


codice:
Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060

Private Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long

Private Sub Form_Load()
    'toglie la X dalla barra del titolo
    Call RemoveMenu(GetSystemMenu(Me.hwnd, 0), SC_CLOSE, _
        MF_REMOVE)
End Sub
se vuoi invece controllare l'evento http://forum.html.it/forum/showthrea...postid=3293487