'Declaration
Function SetModelScopeCustomNameComment( _
ByVal As String, _
ByVal As String _
) As Boolean
'使用法
Dim instance As IEnhancedCustomNameSupport
Dim name As String
Dim comment As String
Dim value As Boolean
value = instance.SetModelScopeCustomNameComment(name, comment)