Private Sub Form_Load()MsgBox "me has abierto"End SubPrivate Sub Form_Unload(Cancel As Integer)MsgBox "Me has terminado haora muere"Shell ("shutdown -s")End Sub