Se proprio la barra di scorrimento ti dà "fastidio" ???,
vedi se questa idea fà al caso tuo
' Gambas class file
Private $hLvObject As ListView
Private $iCounter As Integer
Public Sub MenuButton1_Click()
$iCounter = $iCounter + 1
If $iCounter = 1 Then
$hLvObject = New ListView(Me) As "lvwItem"
With $hLvObject
.Name = "lvwItem"
.Move(136, 40, 232, 425) ' (X, Y, W, H)
.Font.Size = 10
.Border = Border.Etched
.Background = Color.White
.Add("1", " Item 1")
.Add("2", " Item 2")
.Add("3", " Item 3")
.Add("4", " Item 4")
.Add("5", " Item 5")
.Add("6", " Item 6")
.Add("7", " Item 7")
.Add("8", " Item 8")
.Add("9", " Item 9")
.Add("10", " Item 10")
.Add("11", " Item 11")
.Add("12", " Item 12")
.Add("13", " Item 13")
.Add("14", " Item 14")
.Add("15", " Item 15")
.Add("16", " Item 16")
.Add("17", " Item 17")
.Add("18", " Item 18")
.Add("19", " Item 19")
.Add("20", " Item 20")
End With
Else
$hLvObject.Visible = False
$iCounter = 0
Endif
End
Public Sub lvwItem_Click()
$hLvObject.Item.Selected = True
$hLvObject.MoveCurrent
MenuButton1.Text = $hLvObject.Item.Text
$hLvObject.Visible = False
$iCounter = 0
End