Private Sub AddBacteria()
Dim posx As Long
Dim posy As Long
Dim col As Long
Dim tmp As String
Dim lngCount As Long
lngCount = Bact.count
posx = (Frame1.Width * Rnd) + 1 'frame as the dish
posy = (Frame1.Width * Rnd) + 1
tmp = Hex(255 * Rnd + 1) 'random colour
tmp = tmp & Hex(255 * Rnd + 1)
tmp = tmp & Hex(255 * Rnd + 1)
Load Bact(lngCount) 'control array of shapes(small circles)
Bact(lngCount).Left = posx
Bact(lngCount).Top = posy
Bact(lngCount).FillColor = "&H" & tmp
Bact(lngCount).Visible = True
If lngCount = 15 Then Timer1.Enabled = False 'timer counts in seconds tile 15
End Sub