'Declaration
Public Overloads Sub SetFields( _
ByVal As String, _
ByVal As String, _
ByVal As String, _
ByVal As String, _
ByVal As String _
)
'使用法
Dim instance As NumberFieldsInfo
Dim pattern As String
Dim positivePrefix As String
Dim positiveSuffix As String
Dim negativePrefix As String
Dim negativeSuffix As String
instance.SetFields(pattern, positivePrefix, positiveSuffix, negativePrefix, negativeSuffix)