Private Sub ClassRenew()
        Try
            Dim i As Integer = 0
            While i < MusicTitle.Length
                MusicTitle(i) = New MusicBase
                i += 1
            End While
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Try
            SaveSettings()
            Excel1.DisplayAlerts = True
            Excel1.ActiveWorkbook.Save()
            Excel1.DisplayAlerts = False
            Excel1.ActiveWorkbook.Close()
            Excel1.Workbooks.Close()
        Catch ex As Exception
        End Try
 
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
            ClassRenew()
            LoadSettings()
        Catch ex As Exception
        End Try
 
    End Sub