Private Sub FlowLayoutPanel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles FlowLayoutPanel1.Paint

        If My.Settings.temporaneolavoro = "" Then
            MsgBox("Nessun lavoro caricato")
        Else
            Dim filescontati As String


            For Each filescontati In My.Computer.FileSystem.GetFiles(My.Settings.temporaneolavoro)

                Dim testo As New Button
                testo.CreateControl()

            Next
        End If

    End Sub