Imports System

Public Module Module1

    Public Sub Main()

        dim hora as TimeSpan 

​

        For i as integer = 1 to 5

            hora = hora + timespan.Parse("00:01:00")

        next

​

        Console.WriteLine(Hora)

    End Sub

End Module