Imports System

Public Module Module1

    Public Sub Main()

        dim asterisk as string

        asterisk="*"

        dim count as integer

        count=1

        while count<22

            console.write(asterisk)

            count=count+1

        end while

        console.writeline("")

        while count<30

            console.write(asterisk)

            console.writeline("                   " & asterisk)

            count=count+1

        end while

        while count<51

            console.write(asterisk)

            count=count+1

        end while

​

    End Sub

End Module