显示系统时间程序出现问题求教

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
以上是系统所用程序，老出现编译错误，请高手指教！