Needs["BarCharts`"];Needs["Histograms`"]
Needs["Graphics`Animation`"]

"Points" contains five 3-dimensional points

points={{1,2,3},{3,2,1},{-1,2,-2},{-2,-1,2},{0.5,-0.5,0.}}

g1=ListPointPlot3D[points,Boxed->True,Axes->True,PlotStyle->{PointSize[0.03`]},ViewPoint->{0,-2,0}]

SpinShow[g1]

"Points4" contains a (4^th) component that contains the PointSize.

points4={{1,2,3,.02},{3,2,1,.03},{-1,2,-2,.04},{-2,-1,2,0.05},{0.5,-0.5,0.,0.035}}

points4//MatrixForm

Create "v4" which contains the Graphic primitives for the Graphics3D command.

v4=points4/.{x_,y_,z_,m_}:>{PointSize[m],Hue[0.7],Point[{x,y,z}]};

v4[[1,2,1]]=0.5

v4

Create your own color array called     "col"

col={0.1,0.3,0.4,0.5,0.7}

Modify the color component in the v4 (Graphics primitive) array.

Table[v4[[i,2,1]]=col[[i]],{i,1,5}]

v4

g2=Show[Graphics3D[v4],AspectRatio->Automatic,ViewPoint->{1,2,1}]

SpinShow[g2]

What happens if you try to add 8 components with CMYK color?

points5={{1,2,3,.05,0.,0.5,1.0,0.},{3,2,1,.03,0.,0.2,1.0,0.0},{-1,2,-2,.04,0.,0.1,1.0,0.},{-2,-1,2,0.05,0,0.0,0.6,0.0},{0.5,-0.5,0.,0.035,0,0,0.2,0.0},{0.5,+0.5,0.,0.045,0,0,0.0,0.0},{-1.5,+1.5,0.,0.045,0.1,0,0,0.0}}

points5//MatrixForm

v5=points5/.{x_,y_,z_,m_,c1_,m1_,y1_,k1_}:>{PointSize[m],CMYKColor[c1,m1,y1,k1],Point[{x,y,z}]};

1st = red    2nd = orange    3rd = off orange     4th = yellow    5th = off yellow   6th = white    7th = light blue

v5

g5=Show[Graphics3D[v5],AspectRatio->Automatic,ViewPoint->{1,2,1}]