Pennello (Brush)

  Private mStrumento As Brush

  Private mEffetto As Brush

   PrivateSub PicColor_Click(ByVal sender As System.Object, ByVal     e As System.EventArgs)Handles PicColor.Click

        Dim frmDlg AsNew ColorDialog

       frmDlg.FullOpen = False

       frmDlg.AllowFullOpen = True

        If frmDlg.ShowDialog = Windows.Forms.DialogResult.OK Then

           PicColor.BackColor = frmDlg.Color

            Dim color AsString = frmDlg.Color.ToString

            'mStrumento = frmDlg.Color.ToString 'color

        EndIf

    EndSub