思念到永远:VB中怎么显示今天的日期 星期和 时间?

VB获取星期用WeekDay函数，怎么用看MSDN吧，那比我权威，下面是部分内容：
返回一个 Integer 值，该值包含表示周中某一天的数。

Public Function Weekday( _
ByVal DateValue As DateTime, _
Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday _
) As Integer
参数
DateValue
必选项。所要确定为该周某一天的 Date 值。
DayOfWeek
可选项。选自 FirstDayOfWeek 枚举的值，该枚举用于指定周的第一天。若未指定，则使用 FirstDayOfWeek.Sunday。
设置
DayOfWeek 参数可以有以下设置之一。

枚举值 值 说明
FirstDayOfWeek.System 0 系统设置中指定的周的第一天
FirstDayOfWeek.Sunday 1 星期日（默认）
FirstDayOfWeek.Monday 2 星期一（依照 ISO 8601 标准第 3.17 节)
FirstDayOfWeek.Tuesday 3 星期二
FirstDayOfWeek.Wednesday 4 星期三
FirstDayOfWeek.Thursday 5 星期四
FirstDayOfWeek.Friday 6 星期五
FirstDayOfWeek.Saturday 7 星期六

异常/错误
异常类型 错误号 条件
ArgumentException 5 DayOfWeek 小于 0 或大于 7。

备注
Weekday 函数所返回的值与 FirstDayOfWeek 枚举的值相对应；即 1 表示星期天，7 表示星期六。

若 DayOfWeek 小于 0 或大于 7，则发生 ArgumentException 错误。

注意 Weekday 使用取自 System.Globalization 命名空间中 CultureInfo 类 CurrentCulture 属性的当前日历设置。默认 CurrentCulture 值由“控制面板”设置决定。
示例
本示例使用 Weekday 函数从指定日期中获取星期几部分。

Dim MyDate As Date
Dim MyWeekDay As Integer
MyDate = #2/12/1969# ' Assign a date.
MyWeekDay = Weekday(MyDate) ' MyWeekDay contains 4 because
' MyDate represents a Wednesday.

command1_click函数里输入：

text1.text=data()
text3.text=time()

星期忘了。

Text1.Text = Date
Text2.Text = Weekday(Now)
Text3.Text = Time