Imports System

Public Module Module1

    Public Sub Main()

        dim myArr(10,10) as char

        dim x,y as integer

        x = 12/2

        y = x

        dim f as integer = 0

        for r = 0 to 10

        for c = x to y

        myArr(r,c) = "*"

    next c

    f = f + 1

    if f <=5

        x = x - 1

        y = y + 1

    else

        x = x + 1

        y = y - 1

    end if

next r

    End Sub

End Module