Imports System

Imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

        Dim counter=1

        Dim dir=1   

        Dim repeat=8            

        do  

            For i as integer=1 To counter

                Console.Write("*")

            next

            Console.Write(vbCrlF)

            if counter>=repeat and dir=1 then 

                dir = -1

            end if

            counter=counter+dir

        loop while counter>0

    End Sub

End Module