Public Class CBtNumber
Public Structure StBtNumber
Public Property IntLine As Integer
Public Property IntRow As Integer
End Structure
End Class
Public Class tbtnBlock1
Dim B As CBtNumber.StBtNumber
Public Sub New()
InitializeComponent(
B.IntLine = 1
B.IntRow = 1
End Sub
Public Property ZBtNumber() As CBtNumber.StBtNumber
Get
Return B
End Get
Set(ByVal value As CBtNumber.StBtNumber)
B = value
End Set
End Property
End Class

添加的属性变成这样了