Private Sub esci_Click()
'On Error Resume Next
'MSComm6.PortOpen = False
'On Error Resume Next
'MSComm1.PortOpen = False
'disattiva Webcam
'If startcap = True Then
' temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
' startcap = False
'End If
'ConProva.Close
'On Error Resume Next
'End
End Sub

questo è il codice della chiusura, se clicco sulla x rossa tutto va...

edit: ho provato con il debug, mi da errore sull'end... ed esce

Si è verificato un errore in Visual Basic. L'applicazione verrà chiusa.
invia e non inviare.. quella finestra li...