打开工具箱添加Timer控件
右击控件-属性-Enabled设置为True
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
lblBottomTime.Text = DateTime.Now.ToString() + " " + System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(DateTime.Now.DayOfWeek)'DateTime.Now.DayOfWeek.ToString() ‘’
End Sub
Private Sub Form_Load()Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
最终效果:时间随当前系统时间变化