高手请进，十万火急！！！

Question

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public panfu as string
Sub Main()If App.PrevInstance Then
  End  Exit Sub
End IfIf GetDriveType("d:\") = 5 Then
    panfu = "e"
  ElseIf GetDriveType("e:\") = 5 Then
  
  panfu = "f"
ElseIf GetDriveType("f:\") = 5 Then
  
  panfu = "g"
ElseIf GetDriveType("g:\") = 5 Thenpanfu = "h"  
ElseIf GetDriveType("g:\") = 5 Thenpanfu = "h"ElseIf GetDriveType("h:\") = 5 Thenpanfu = "j"ElseIf GetDriveType("i:\") = 5 Thenpanfu = "j"ElseIf GetDriveType("j:\") = 5 Thenpanfu = "k"
  
ElseIf GetDriveType("k:\") = 5 Thenpanfu = "l"ElseIf GetDriveType("l:\") = 5 Thenpanfu = "m"ElseIf GetDriveType("m:\") = 5 Thenpanfu = "n"
  
ElseIf GetDriveType("n:\") = 5 Thenpanfu = "o"
  
ElseIf GetDriveType("o:\") = 5 Thenpanfu = "p"
  
ElseIf GetDriveType("p:\") = 5 Thenpanfu = "q"
  
ElseIf GetDriveType("q:\") = 5 Thenpanfu = "r"
  
ElseIf GetDriveType("r:\") = 5 Thenpanfu = "s"ElseIf GetDriveType("s:\") = 5 Thenpanfu = "t"End If
frmmain.show
End Sub