API的功能不唯一

请斑竹赐教

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
t = GetTickCount
……
……
……
MsgBox (GetTickCount - t) / 1000 '换算单位成秒(默认是毫秒)
End Sub

斑竹啊，等你MsgBox (GetTickCount - t) / 1000出来了，我也就执行完了，像你那样直接用timer不是更简单？？？我要的是即将要执行的时间，我晕！！

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
t = GetTickCount
……
……
……
MsgBox (GetTickCount - t) / 1000 '换算单位成秒(默认是毫秒)
……
……
……
End Sub

晕~非要这样写你才能明白！！？？？？

哎！我看我真是才疏学浅了，你知道我问什么吗？？？？我问你你这样得到的是什么啊！！！！！！
是我要的吗！！！！！我是要在一个命令执行前得到它将得到的时间！！！！！！！！！你那样得到的是什么啊！！！！！！！

晕~你说清楚是过程时间，，，不是即将发生的时间起点或结尾。。。。

这个要考虑你的过程是什么。。。如果是网络的可以粗略计算百分比，，，，

而且干扰因素不影响不大能用。。。