Dim dt As Date = date.NowIf dt.Hour = 9 AndAlso dt.Minute = 30 Then messagebox.show("时间到了","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)End If
加好友 
发短信
Post By：2012/9/27 21:51:00 [显示全部帖子]
