For x = 0 To t
dbCursor.Position = x
Played(x) = dbCursor.GetInt("Played")
Dim lblTeam As DraggableView
lblTeam.Initialize(Activity, lblTeam)
lblTeam.Text=dbCursor.GetString("TeamName")
lblTeam.TextColor=Colors.Black
lblTeam.Tag=dbCursor.GetInt("TeamIndex")
If x Mod 2 = 0 Then
lblTeam.Color=Colors.Yellow
Activity.AddView(lblTeam,1%x,Top,165dip,40dip)
Else
lblTeam.Color=Colors.White
Activity.AddView(lblTeam,51%x,Top,165dip,40dip)
Top=Top + 60dip
End If
Next