主题：[求助] 如何实现将K线的时间输出到系统时钟

Sub Technic_CursorMove(Grid, Index, x, y)
    Dim WshShell
    Set WshShell = CreateObject("wscript.Shell")
    call WshShell.Run("cmd.exe /c date "&grid.DateByPos(Index),0)
    StockSleep(50)
    call WshShell.Run("cmd.exe /c time "&FormatdateTime(grid.DateByPos(Index),vbLongTime),0)
    Set WshShell = nothing
End Sub

Sub StockSleep(slSecond)
    Set Wrap = CreateObject("DynamicWrapper")
    Wrap.Register "KERNEL32.DLL", "Sleep","i=u","R=l"
    Wrap.Sleep(slSecond)
    Set Wrap = nothing
End Sub

对象用完后销毁就可以了