Graphics[Point[{0,0}]]

Graphics[Point[{0,0}],Frame->True]

Graphics[
{PointSize[1],Point[{0,0}]},
Frame->True
]

Graphics[
{PointSize[1],Point[{0,0}]},
Frame->True,
ImageSize->{300,100}
]

Graphics[
{PointSize[1],Point[{0,0}]},
Frame->True,
ImageSize->200
]

Graphics[
{Blue,PointSize[0.03],Point[{0,0}]},
Frame->True,
ImageSize->200
]

Graphics[
{{Blue,PointSize[0.03],Point[{{-1,10},{1,10}}]}
},
PlotRange->{{-5,5},{0,15}},
Frame->True,
ImageSize->Small
]

Graphics[BSplineCurve[{{1,2},{2,1},{0,4}}],
ImageSize->Small]

Graphics[{BSplineCurve[{{1,2},{2,1},{0,4}}],
Point[{{1,2},{2,1},{0,4}}]},
ImageSize->Small]

Graphics[{{Red,Thickness[0.03],BSplineCurve[{{1,2},{2,1},{0,4}}]},
{Blue,PointSize[0.045],Point[{{1,2},{2,1},{0,4}}]}},
ImageSize->Small]

Graphics[{{Red,Thickness[0.03],BSplineCurve[{{1,2},{2,1},{0,4},{3,3}}]},
{Blue,PointSize[0.045],Point[{{1,2},{2,1},{0,4},{3,3}}]}},
ImageSize->Small]