En la barra de herramientas presiona el boton derecho y selecciona Componentes
Activa la casilla Microsoft Common Dialog Control 6.0
Presiona Aceptar
Ahora agrega este control a tu form y un boton y coloca la siguiente sentencia
Private Sub Command1_Click()
CommonDialog1.ShowColor
End Sub