[shyrikkk]

Сообщение от SBJoker

на основе какой информации текст должен меняться? Просто по порядку?

Присвой в редакторе форм свойству Tag кнопки значение 0 (ноль).

Private Sub Command1_Click()
    dim k as integer
    
    k = CInt(Command1.Tag)
    k = k + 1
    Command1.Tag = k

    select case k
    case 1
        Label1.Caption = "First text"
    case 2
        Label1.Caption = "Second text"
    case else
        Label1.Caption = "Last text"
    end select
End Sub

k = CInt(Command1.Tag) - Ошибка Не совпадение типов
А если исключить эту строчку , то перещёлкивание не идёт а стоит на First text .
СПАСИБО ЧТО ОТКОЛИКНУЛИСЬ .
БУДУДАЛЬШЕ ПРОБОВАТЬ -если у кого идеи появяться подкиньте