Page 100 - Programming VB.NET
P. 100

96                                       Chapter 9: OOP



                   Public Class First

                       Private nilai_x As Integer
                       Private nilai_y As Integer

                       Public Property X() As Integer

                           Get

                               Return nilai_x

                           End Get
                           Set(ByVal value As Integer)

                               nilai_x = value

                           End Set

                       End Property

                       Public Property Y() As Integer

                           Get

                               Return nilai_y
                           End Get

                           Set(ByVal value As Integer)

                               nilai_y = value

                           End Set

                       End Property

                   End Class
   95   96   97   98   99   100   101   102   103   104   105