Private Sub Eimer(ByVal PosX As Integer, ByVal PosY As Integer, ByVal _
      NewTile As Integer, ByVal ReplacingTile As Integer)
        Try
            If PosX >= 0 And PosX <= _MapX And PosY >= 0 And PosY <= _MapY Then
 
                If _MapLevel1(PosX, PosY) = ReplacingTile Then ' aktuelles Tile 
                ' ersetzen
                    _MapLevel1(PosX, PosY) = NewTile
                End If
 
                If PosX + 1 <= _MapX Then
                    If _MapLevel1(PosX + 1, PosY) = ReplacingTile Then ' nach 
                    ' rechts weiter
                        _MapLevel1(PosX + 1, PosY) = NewTile
                        Eimer(PosX + 1, PosY, NewTile, ReplacingTile)
                    End If
                End If
                If PosY - 1 >= 0 Then
                    If _MapLevel1(PosX, PosY - 1) = ReplacingTile Then ' oben
                        _MapLevel1(PosX, PosY - 1) = NewTile
                        Eimer(PosX, PosY - 1, NewTile, ReplacingTile)
                    End If
                End If
                If PosX - 1 >= 0 Then
                    If _MapLevel1(PosX - 1, PosY) = ReplacingTile Then ' links
                        _MapLevel1(PosX - 1, PosY) = NewTile
                        Eimer(PosX - 1, PosY, NewTile, ReplacingTile)
                    End If
                End If
                If PosY + 1 <= _MapY Then
                    If _MapLevel1(PosX, PosY + 1) = ReplacingTile Then ' unten
                        _MapLevel1(PosX, PosY + 1) = NewTile
                        Eimer(PosX, PosY + 1, NewTile, ReplacingTile)
                    End If
                End If
 
            End If
        Catch ex As Exception
 
        End Try
    End Sub

fg viperbone