Module Module1
 
    Sub Main()
        Try
            'Dim tannenL As Integer
            'Dim stumpfL As Integer
            'Dim stumpfB As Integer
 
 
 
            If drawtanne(20, 12, 5) = True Then
 
 
            Else
                MsgBox("Es ist ein Fehler aufgetreten")
 
            End If
 
 
        Catch ex As Exception
 
        End Try
 
 
 
 
 
 
    End Sub
    Private Function drawtanne(ByVal tanne As Integer, ByVal stumpf As Integer, _
      ByVal stumpfbr As Integer) As Boolean
        Try
            Dim stern As String
            Dim stern1 As String
            Dim stern2 As String
 
            For x As Integer = 1 To tanne
 
                stern = New String("*", x)
                Console.WriteLine(stern)
 
            Next
 
            For y As Integer = 1 To stumpf
 
                stern1 = New String("***")
                Console.WriteLine(stern1)
 
            Next
            For z As Integer = 3 To stumpfbr
                stern2 = New String("***", z)
                Console.WriteLine(stern2)
            Next
 
 
 
 
            Return True
        Catch ex As Exception
 
            Return False
        End Try
 
 
    End Function
 
End Module