Hvorfor virker dette program/denne kode ikke efter hensigten

Jeg sidder her og arbejder på et program som i sin oprindelse hedder liv (minder lidt om minestryger)

Jeg har oprettet en form hvor jeg har en knap ved navn start (command1)
samt en label (lblfelt) som udgør felterne.

meningen med programmet:
-De otte felter omkring et givet felt kaldes feltets naboer
-En brik, som har to eller tre nabobrikker overlever til næste generation.
-En brik, som har fire eller flere naboer, dør på grund af overbefolkning og bliver fjernet.
-En hver brik som kun har én nabo, dør af mangel på støtter.
-I et hvert tomt felt, som har tre – og kun tre- naboer, sker der en fødsel og der placeres en brik i næste generation.

koden
Dim hvid, sort As Long
Const bredde = 10
Private Sub Command1_Click()
  If Command1.Caption = "start" Then
    Command1.Caption = "Stop"
    Do While Command1.Caption = "Stop"
        'Generation
        DoEvents
      Loop
    Else
      Command1.Caption = "Start"
    End If
End Sub
Private Sub Form_Load()
Dim lodret, vandret, feltID As Integer
  hvid = RGB(255, 255, 128)
  sort = RGB(0, 128, 0)
  For lodret = 1 To bredde
    For vandret = 1 To bredde
    feltID = (lodret * bredde) + vandret
      Load lblFelt(feltID)
      lblFelt(feltID).Move lodret * _
      lblFelt(feltID).Width, _
      vandret * lblFelt(feltID).Height
      lblFelt(feltID).BackColor = sort
      lblFelt(feltID).Tag = False
      lblFelt(feltID).Visible = True
    Next
  Next
  End Sub

Private Sub lblFelt_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then  'Venstre Knap
    lblFelt(Index).BackColor = hvid
    lblFelt(Index).Tag = True
  End If
  If Button = 2 Then  'Højre knap
      lblFelt(Index).BackColor = sort
      lblFelt(Index).Tag = False
    End If
End Sub

Function FeltOverlever(lblID As Integer) 'Funktion header
Dim AntalLevendeNaboer As Integer
Dim ILiveNu            As Integer
  ILiveNu = lblFelt(lblID).Tag = True
  AntalLevendeNaboer = 0
' Test de felter ovenover
If lblFelt(lblID - (bredde + 1)).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
If lblFelt(lblID - brede).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
If lblFelt(lblID - (bredde - 1)).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
' Test de to felter på hver sin side af det aktuelle felt
If lblFelt(lblID - 1).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
If lblFelt(lblID + 1).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
' Test de tre felter nedenunder
If lblFelt(lblID + (bredde - 1)).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
If lblFelt(lblID + bredde).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
If lblFelt(lblID + (bredde + 1)).Tag = True Then _
  AntalLevendeNaboer = AntalLevendeNaboer + 1
'Funktion Retunerer True eller False
FeltOverlever = (ILiveNu And _
  ((AntalLevendeNaboer = 2) _
  Or (AnmtaslLevendeNaboer = 3))) _
  Or ((Not ILiveNu) And (AntalLevendeNaboer = 3))
End Function
Private Sub Generarion()
Dim lodret, vandret, feltID As Integer
  'Tegn overlevende felter
  For lodret = 2 To (bredde - 1)
    For vandret = 2 To (bredde - 1)
    feltID = (lodret * bredde) + vandret
    lblFelt(feltID).BackColor = _
    IIf(FeltOverlever(feltID), hvid, sort)
    Next
  Next
  'opdater True-properties
  For lodret = 2 To (bredde - 1)
    For vandret = 2 To (bredde - 1)
      feltID = (lodret * brede) + vandret
      lblFelt(feltID).Tag = _
        IIf(FeltOverlever(feltID).BackColor = hvid, True, False)
          Next
        Next
      End Sub
     
     
       
det er så meningen at man starter programmet tegner (markerer) et mønster af firkanter og så trykker man på start knappen for at se hvad der sker.  MEN HVORFOR SKER DER IKKE NOGET?????