Private Function GetBlock(ByVal Zeile As Int16, ByVal Spalte As Int16) As _
     Int16
      'Basis der Rückgabe ist 1
 
      ' Durchnummerierung der Blöcke nach Zeilen
      Return (((Zeile \ 3) * 3) + (Spalte \ 3)) + 1
 
      ' Durchnummerierung der Blöcke nach Spalten
      'Return (((Spalte \ 3) * 3) + (Zeile \ 3)) + 1
   End Function

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