Hola Zinc haber si es esto lo que nesecitas es bien simple
'declaras Api
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
Const MF_BYPOSITION = &H400
Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hWnd, 0), 6, MF_BYPOSITION 'desabilita(Cerrar)
End Sub
Creo que es eso "Acordate de colcoar un boton "Cerrar" jajaja
Saludos .-.
"Podemos ser lo mejor y tambien lo peror con la misma facilidad"Bersuit Vergarabat