Public Sub ReadFromPBMFile(ByVal Datei As String)
  Dim tmpPixels(,) As Boolean
 
  [...]
  ReDim tmpPixels(0 To bmp.Height - 1, 0 To bmp.Width - 1)
 
  mPixels = MakeUnterquadrate(tmpPixels)
End Sub
 
Public Function MakeUnterquadrate(ByVal Unterquadrate(,) As Boolean) As Boolean( _
  ,)
  Dim w, h As Integer
  Dim tmpPixels(,), tmpQuadrat(,) As Boolean
 
  h = UBound(Unterquadrate, 1)
  w = UBound(Unterquadrate, 2)
 
  Return tmpPixels
End Function

- "Computers are like air conditioners. They stop working properly when you open Windows"