Imports System.Globalization Module MainClass Public Sub Main() Dim july28 As New DateTime(2009, 7, 28, 5, 23, 15, 16) Dim july28Formats As String() july28Formats = july28.GetDateTimeFormats() For Each format As String In july28Formats Console.WriteLine(format) Next End Sub End Module