Public Function DoSomething() As Integer
        Return DoSomething(New Rectangle(0, 0, 100, 100))
    End Function
 
    Public Function DoSomething(rec As Rectangle) As Integer
        Return DoSomething(rec, 1)
    End Function
 
    Public Function DoSomething(rec As Rectangle, someFactor As Integer) As _
      Integer
        ' Hier der eigentliche Code.
        Return someFactor * rec.Width * rec.Height
    End Function