原书上的代码:

Private Sub Form_Load()
Dim MyFSO As New FileSystemObject
Dim MyDrive As Drive
For Each MyDrive In MyFSO.Drives
   List1.AddItem MyDrive.Path & "是" & ShowDriveType(MyDrive.DriveType)
Next
End Sub

Function ShowDriveType(ByVal NumType As Long)
Select Case NumType
Case 0
  ShowDriveType = "无法判断"
Case 1
  ShowDriveType = "外插式驱动器"
Case 2
  ShowDriveType = "硬盘"
Case 3
  ShowDriveType = "远程存储设备"
Case 4
  ShowDriveType = "光驱"
Case 5
  ShowDriveType = "RAM Disk"
End Select
End Function
list1的显示正常
C:是硬盘
D:是硬盘
E:是硬盘
F:是硬盘
G:是光驱
我的代码:
 Function showdrivetype(ByVal numtype As Long)
Select Case numtype
 Case 0
showdrivetype = "无法判断"
 Case 1
 showdrivetyp = "外插式驱动器"
 Case 2
showdrivetyp = "硬盘"
 Case 3
showdrivetype = "远程存储设备"
 Case 4
showdrivetyp = "光驱"
 Case 5
showdrivetyp = "RAM DISK"
 End Select
End Function

Private Sub Form_Load()
Dim myfso As New FileSystemObject
Dim mydrive As Drive
 For Each mydrive In myfso.Drives
List1.AddItem mydrive.Path & "是" & showdrivetype(mydrive.DriveType)
Next
End Sub
list1的显示错误
C:是
D:是
E:是
F:是
G:是
两段代码完全相同(除了大小写) 为何得到的结果会不同
                                                   谢谢