Dim dt As Date = Date.now
Dim ms As Integer
Do While ms < 5
Dim t As TimeSpan = dt - Date.now
ms = t.Seconds
Loop
加好友 
发短信
Post By：2018/4/10 16:56:00 [显示全部帖子]
