Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        FD1.ShowDialog()

        If FD1.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtTesto.Font = FD1.Font
            txtTesto.ForeColor = FD1.Color
        End If

    End Sub