Exibir a hora atual formatada usando o método ToString

'Este exemplo mostra como formatar a hora atual
'usando o método ToString

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now

    'formata a hora usando o método ToString
    Dim formatada = agora.ToString("T")

    'exibe o resultado
    Console.WriteLine("Agora são: " & formatada)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module