Private Sub reload()
        For i As Integer = 0 To Controls.Count - 2
            Controls(i).Dispose()
        Next
        Controls.Clear()
        InitializeComponent()
        Form1_Load(Me, Nothing)
    End Sub