Public Class Tester
Public Shared Sub Main
Dim rightNow As Date = Now
Dim hourNow As Integer = rightNow.Hour
Dim minuteNow As Integer = rightNow.Minute
Dim secondNow As Integer = rightNow.Second
Dim millisecondNow As Integer = rightNow.Millisecond
Dim results As String = String.Format( _
"Hour: {1}{0}Minute: {2}{0}Second: " & _
"{3}{0}Millisecond: {4}", vbNewLine, _
hourNow, minuteNow, secondNow, millisecondNow)
Console.WriteLine(results)
End Sub
End Class
Hour: 21
Minute: 9
Second: 39
Millisecond: 640