Here's a very simple example, that does what you want - just change the code to use Types and images etc.
Graphics 640,480 Global germ_x[50] Global germ_y[50] For n=0 To 49 germ_x[n]=Rnd(0,640) germ_y[n]=Rnd(0,480) Next SetClsColor 255,255,255 Cls While Not KeyHit(KEY_ESCAPE) SetColor 0,0,0 For n=0 To 49 DrawOval germ_x[n],germ_y[n],40,40 Next SetColor 255,193,183 For n=0 To 49 DrawOval germ_x[n]+2,germ_y[n]+2,36,36 Next Flip Cls Wend End