Tengo un picture cargado con una imagen me gustaria dibujar sobre la imagen unos cuadritos o puntitos sobre la imagen que cargo y poder elegir el color que quiera del cuadrito o puntitos.

+1 pero sin calavera 

private sub form_load()
    dim elcolorqueelquierematerilerileron as long
    elcolorqueelquierematarilerileron = &H0
    picture1.autoredraw=true
    picture1.scalemode=3
    picture1.pset (10,10),elcolorqueelquierematerilerileron  '<---- Dibuja un punto
    picture1.line (10,10)-(100,100),elcolorqueelquierematarilerileron,bf  '<----dibuja un "cuadrito"
end sub