codice:
	    ' out controlla Data Estesa e Data non estesa..
    Public Shared Function Oggi(ByVal Out As Boolean) As String
        Dim DataOut
        If Out = True Then
            DataOut = "Oggi è " & Now.Date.ToLongDateString          
            DataOut += " - Sono le ore: " & FormatDateTime(Now.ToLocalTime.AddHours(-2), DateFormat.ShortTime)
        ElseIf Out = False Then
            DataOut = "Oggi è il " & Now.Date.ToShortDateString
            DataOut += " - Sono le ore: " & FormatDateTime(Now.ToLocalTime.AddHours(-2), DateFormat.ShortTime)
        End If
        Return DataOut
    End Function