'Declaration
Public Overloads Function CreateLineBorder( _
ByVal As Color, _
ByVal As Integer _
) As LineBorder
'使用法
Dim instance As LineBorderFactory
Dim color As Color
Dim thickness As Integer
Dim value As LineBorder
value = instance.CreateLineBorder(color, thickness)