So the answer is
Dim def As New MapWinGIS.ShapeDrawingOptions
def.VerticesVisible = True
def.VerticesFillVisible = True
shp.DefaultDrawingOptions = def
AxMap1.Redraw()
This makes vertices visibles as a square, perhaps it's possible to use another pattern but so far for me it's enough.