Imports System.ComponentModel ''' _ Public Class ClassControl_Properties ''' Private _Bez As String Private _Show As Boolean Private _Number As Short ''' _ Public Property CtrlName() As String Get Return _Bez End Get Set(ByVal Value As String) _Bez = Value End Set End Property ''' _ Public Property Show() As Boolean Get Return _Show End Get Set(ByVal Value As Boolean) _Show = Value End Set End Property ''' _ Public Property Number() As Short Get Return _Number End Get Set(ByVal Value As Short) _Number = Value End Set End Property ''' End Class