Обработка событий формы

[aval]

Доброго времени суток!
Помогите с проблемой: можно ли (для сокращения кода) внутри формы при выполнении процедуры CommandButton1_Click и ListBox1_DblClick
сделать ссылку на одинаковую часть кода с помощью ссылки типа Application.Run "Яблоко"? Sub Яблоко() нельзя переместить в обычный модуль, т.к. в ней есть ссылки на объекты самой формы.

[EducatedFool]

Не только можно, но и нужно.

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Яблоко
End Sub

Private Sub CommandButton1_Click()
    Яблоко
End Sub

Sub Яблоко()
    MsgBox Me.Caption, vbInformation, "Заголовок формы"
    Me.CommandButton1.Enabled = False
End Sub

[tolikman]

Типа в листбоксе выбираешь, а потом при двойном щелчке по листбоксу или по нажатию кнопки запускаем то, что выбрано в листбоксе. Проще будет через Select case перебирать соответствия и запускать нужное:

.......
str="Яблоко"
select case str
   case "Груша"
      Груша 'макрос (sub)
   case "Яблоко"
      Яблоко 'макрос (sub)
   .......
   
   case else
      Выполню_все_остальное 'макрос (sub)
end select

но скорее всего можно через API, сейчас сайт в закрамах поищу, где можно про это посмотреть...

[aval]

Уважаемый EducatedFool !Пока висел мой вопрос я нашел ответ:
Call UserForms.Яблоко
Но Ваша подсказка - это вообще высший пилотаж. Огромное спасибо!