Private Sub FrmMenu_FormClosing(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If gblnChanged Then
            If MsgBox(DB_FindMessage(MSG_Save_Sequence, False), _
                                                MsgBoxStyle.YesNo, "Save" & _
                                                "Sequence") = MsgBoxResult.Yes _
                                                Then
                strTableName = gstrSequence
                If DB_SaveSequence() Then MsgBox(gstrSequence + " " + _
                  DB_FindMessage(MSG_SaveSeq_Success, False))
            End If
        End If
 
        WriteinXML(strTableName, NODE_STEP)
End Sub