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