Compile and Execute VB.Net Online

Module DataTypes

   Sub Main()
   Dim row,col,spaces As Integer
      for row=0 to 5 step 1
        for spaces=0 to row step 1
                console.write("*" &vbtab)
            next spaces 
        for col=5-row to 1 step -1
                console.write(row &vbtab)
            next col 
        console.writeline()
        next col
      Console.ReadKey()
   End Sub

End Module