Реферат: Индексированные элементы управления

If Command1.Caption < Command9.Caption Then End

' если цифра кнопки больше или равна каждой другой, то выбрали нужную!

Command1.Visible = False

' надпись минус один - чтобы уже "невидимая" не мешала выбору нужной среди видимых!

Command1.Caption = -1

End Sub

Для "второй" кнопки:

Private Sub Command2_Click()

If Command2.Caption < Command1.Caption Then End

If Command2.Caption < Command3.Caption Then End

If Command2.Caption < Command4.Caption Then End

If Command2.Caption < Command5.Caption Then End

If Command2.Caption < Command6.Caption Then End

If Command2.Caption < Command7.Caption Then End

If Command2.Caption < Command8.Caption Then End

If Command2.Caption < Command9.Caption Then End

Command2.Visible = False

Command2.Caption = -1

End Sub

Для следующих программные коды аналогичны. Однако, для проверки приведу обработчик для "последней" кнопки:

Private Sub Command9_Click()

If Command9.Caption < Command1.Caption Then End

If Command9.Caption < Command2.Caption Then End

If Command9.Caption < Command3.Caption Then End

If Command9.Caption < Command4.Caption Then End

If Command9.Caption < Command5.Caption Then End

If Command9.Caption < Command6.Caption Then End

If Command9.Caption < Command7.Caption Then End

If Command9.Caption < Command8.Caption Then End