在窗口AfterLoad事件:
Dim lbl As WinForm.Label = e.Form.Controls("Label1")lbl.Text = Format(Date.Today,"yyyy年MM月dd日")