Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim codForn As Integer = CInt(Me.lblIdFSel.Text)
        With frmArt
            .txtNomePerc.Text = Me.txtNomePerc.Text
            .lblIdFornRic.Text = codForn
            .lblRicForn.Text = "SI"
            .MdiParent = frmAvvio
            .Show()
        End With
        Me.Close()