Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear   As Integer
wMonth   As Integer
wDayOfWeek   As Integer
wDay   As Integer
wHour   As Integer
wMinute   As Integer
wSecond   As Integer
wMilliseconds   As Integer
End Type

Private Sub Command1_Click()
  Dim sysTimeB As SYSTEMTIME
  Call GetlocalTime(sysTimeB)
   Text1.Text = CStr(sysTimeB.wHour) & ":" & CStr(sysTimeB.wMinute) & ":" & CStr(sysTimeB.wSecond) & ":" & (sysTimeB.wMilliseconds)
End Sub
以上是系统所用程序，老出现编译错误，请高手指教！

运行是能运行了，可是时间不对啊，比如是下午四点多，怎么显示是八点多呢

不好意思，哪个名字错了，还有CTRL+右箭头是有什么用处？谢谢您的帮助！