VB : 定数の名称を取得する

VB初心者質問スレ Part6 より

0という数字から、それに対応する定数の名称の文字列
(例えばvbDefaultﾄｶ)を取得する事はできますか？

>>845
無理じゃないよ。ほれサンプル。最善のコードじゃないかもしれないけど。
「TypeLib Information」を参照設定してな
Private Sub Form_Load()
Dim tli As TypeLibInfo
'Set ti = TypeLibInfoFromRegistry("{FCFB3D2E-A0FA-1068-A738-08002B3371B5}", 6, 0, 9)
Set tli = TypeLibInfoFromFile("C:＼WINNT＼System32＼MSVBVM60.DLL")
Call PrintConstantFromValue(tli, 0)
End Sub

Private Sub PrintConstantFromValue(ByVal tli As TypeLibInfo, ByVal Value As Long)
Dim ci As ConstantInfo
Dim mi As MemberInfo
For Each ci In tli.Constants
For Each mi In ci.Members
If mi.Value = Value Then
Debug.Print ci.Name, mi.Name
End If
Next mi
Next ci
End Sub