Private Sub KryptonButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click
        Dim LabelCounter As Integer
        LabelCounter = 0
        If NewSaveName.Text = "" Then
            MsgBox("Er is geen naam opgegeven voor de lijst, probeer het nog eens.")
        Else
            Try
                System.IO.Directory.CreateDirectory("Opgeslagen lijsten/" & NewSaveName.Text)

                ProgressBar1.Increment(12.5)
            Catch ex As Exception
                MsgBox("Error: " & ex.Message)
            End Try
            Try
                LabelCounter += 1
                Dim WritePro As New System.IO.StreamWriter("Opgeslagen lijsten/" & NewSaveName.Text & "/" & LabelCounter & ".txt")
                WritePro.WriteLine(KryptonLabel1.Text) 'naam van label die wordt opgeslagen in 1.txt
                ProgressBar1.Increment(12.5)
            Catch ex As Exception

            End Try
            Try
                LabelCounter += 1
                Dim WritePro As New System.IO.StreamWriter("Opgeslagen lijsten/" & NewSaveName.Text & "/" & LabelCounter & ".txt")
                WritePro.WriteLine(KryptonLabel2.Text) 'naam van label die wordt opgeslagen in 2.text
                ProgressBar1.Increment(12.5)
            Catch ex As Exception

            End Try
'volgende label
            'einde opslaan'
            Timer1.Start()
        End If
    End Sub