PRINT STAR PATTERN IN VB.NET USING NESTED FOR LOOP

Above pattern print program is given below -
 Dim row, col, noofrow, noofcolprint As Integer
        noofrow = 15 : noofcolprint = noofrow
        For row = 1 To noofrow Step 1
            For col = 1 To noofcolprint Step 1
                Console.Write("*")
            Next
            noofcolprint -= 1
            Console.Write(vbNewLine)
        Next