Private tileset As Bitmap = Bitmap.FromFile("Wasser.BMP") 'Bild 1024*758 punkte
    Private number As Int32
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Layer As New Bitmap(64, 64)
        Dim f As Graphics = Graphics.FromImage(Layer)
        f.DrawImage(tileset, New Rectangle(0, 0, 64, 64), NTR(number), _
          GraphicsUnit.Pixel)
        PictureBox1.Image = Layer
        NTR(number)
        number += 1
    End Sub
    Private Function NTR(ByVal Number As Integer) As Rectangle
        Return New Rectangle((Number Mod 8) * 64, ((Number - (Number Mod 8)) / _
          8) * 64, 64, 64)
    End Function