'Declaration Protected Read Property Maximum As Integer
Dim maximum As Integer = verticalSlider.Maximum