在systemidle 事件中加入代码
If rbnbtn IsNot Nothing Then RbnBtn.Text = Date.now & " " & Format(Date.Today(),"dddd")End If
派什么用场