Visual Basic - Duda, paletas de colores

Dim PaletaColor As ColorDialog = New ColorDialog

PaletaColor.AllowFullOpen = True

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

    TXTPRUEBA.BackColor = PaletaColor.Color

End If

Private Sub Command1_Click()

On Error GoTo ErrorColor

With CommonDialog1

    .CancelError = True

    .ShowColor

    If Err.Number <> 32755 Then

        Text1.BackColor = .Color

    End If

    Exit Sub

End With

ErrorColor:

MsgBox "No se eligió el color", vbInformation + vbOKOnly, ""

End Sub