Imports System
Public Class Program
Public Shared Sub Main()
Dim dt As DateTime = New DateTime(2005, 04, 06, 15, 22, 07, 275)
Dim s As String = String.Format("{0:t}", dt)
Console.WriteLine(s)
s = String.Format("{0:T}", dt)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' 3:22 PM
' 3:22:07 PM
'