Best Practice for Library Building and Toolboxes

[Kernelpanic]

Yes, I have already read about LBOUND and UBOUND, but I have not used it yet.
Here is an example of how it could be applied; not tested. Is from the manual for QBasic.

Code: (Select All)

Function FeldGrenzeMax (Feld As Integer)



  Dim maximum As Integer

  Dim feldGrenze As Integer



  maximum = Feld(LBound(Feld))

  For feldGrenze = LBound(Feld) To UBound(Feld)

    If Feld(feldGrenze) > maximum Then maximum = Feld(feldGrenze)

  Next feldGrenze



  FeldGrenzeMax = maximun

End Function