Protected Sub Command1_Click() Handles Label2.Load Label2.Text = DateTime.Now.ToString("yyyy年MM月dd日 dddd") '读取系统日期,显示于label中 End Sub