這程式什意思丫?ChrisTorng(編號：6255)

Public Function ImeGetDescription() As String
Dim Description As String
　　
　　Description = String(255, 0)
　　ImmGetDescription GetKeyboardLayout(0), Description, 255
　　ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)

End Function