'Declaration
Public Sub InitialByCreateInstance( _
ByVal As Object, _
ByVal As String, _
ByVal As Object _
)
'使用法
Dim instance As InputManCellTypeBase
Dim instance As Object
Dim propertyName As String
Dim value As Object
instance.InitialByCreateInstance(instance, propertyName, value)