Сообщение об ошибке

[ruavia3]

Хочу сделать форму, которая будет вылетать при ошибке.
Подскажите как можно в ListBox написать, например, "Ошибка ввода! Сделайте то-то или напишите нам"?
* Чтобы "напишите нам" - была гиперссылка.

[EducatedFool]

В листбокс гиперссылку вместе с обычным текстом не поместить.

Попробуйте такой вариант:




Код формы:

Private Sub Label2_Click()
    ShellExecute Application.hwnd, "open", "mailto:ADDRESS@DOMAIN.org", "", "", SW_SHOW Or SW_NORMAL
End Sub

Private Sub Label3_Click()
    ShellExecute Application.hwnd, "open", "http://www.programmersforum.ru/showthread.php?t=59113", "", "", SW_SHOW Or SW_NORMAL
End Sub

Private Sub UserForm_Initialize()
    Label2.ForeColor = RGB(0, 0, 255): Label2.FontUnderline = True
    Label3.ForeColor = RGB(0, 0, 255): Label3.FontUnderline = True
End Sub

В стандартный модуль:

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
     ByVal lpFile As String, ByVal lpParameters As String, _
     ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

[segail]

Еще один вопрос. Если у пользователя нет почтового ящика, как сработает код?

[EducatedFool]

Если у пользователя нет почтового ящика, как сработает код?

У какого пользователя? Который запускает макрос, или кому отправляется почта?

PS: Проверьте, и узнаете...