Public Class frmRentList

Private Const FLOOR_NUM_MIN As Integer  3

Private Const FLOOR_NUM_MAX As Integer  20

Private Const RENT_LOWER_LIMIT As Integer  1000

Private Const RENT_UPPER_LIMIT As Integer  2500

Private numberFloors As Integer

Private requestedFloor As Integer

Private rentList() As Integer

Private Sub NameValidatingEvent(ByVal sender As , ByVal e As ) Handles 

      ("Apartment Name", )

End Sub

Private Sub NumberValidatingEvent(ByVal sender As , ByVal e As ) Handles , 

    Dim txtBox As TextBox ...