29 lines
595 B
VB.net
29 lines
595 B
VB.net
|
Public Class Size
|
|||
|
|
|
|||
|
|
Private _Width As Integer
|
|||
|
|
Private _Height As Integer
|
|||
|
|
|
|||
|
|
Public Property Width As Integer
|
|||
|
|
Get
|
|||
|
|
Return _Width
|
|||
|
|
End Get
|
|||
|
|
Set(value As Integer)
|
|||
|
|
_Width = value
|
|||
|
|
End Set
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
Public Property Height As Integer
|
|||
|
|
Get
|
|||
|
|
Return _Height
|
|||
|
|
End Get
|
|||
|
|
Set(value As Integer)
|
|||
|
|
_Height = value
|
|||
|
|
End Set
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
Public Sub New(ByVal Width As Integer, ByVal Height As Integer)
|
|||
|
|
Me._Width = Width
|
|||
|
|
Me._Height = Height
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|