For x As Int32 = 0 To 80
         For y As Int32 = 0 To 6
            Try
               If tsp.Chars(pos + y + (x * 7)) = "0" Then
                  e.Graphics.FillEllipse(Brushes.Red, x * 4, 4 + y * 4, 4, 4)
               Else
                  e.Graphics.FillEllipse(Brushes.DarkGray, x * 4, 4 + y * 4, 4, _
                    4)
               End If
            Catch ex As Exception
               e.Graphics.FillEllipse(Brushes.DarkGray, x * 4, 4 + y * 4, 4, 4)
            End Try
         Next
      Next

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control