Public Class Form1
 
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
 
        If e.CloseReason = CloseReason.WindowsShutDown Then
            Me.Close()
        End If
 
    End Sub
 
End Class