Помогите обуздать контролл!

[-=SpyHunter=-]

Помогите плз.!
У меня три вопроса:

1) Как можно в контролле RichTB выделять строки разным цветом
2) Как мона в него же впихнуть ссылки, чтоб при нажатии пользователь переходил на объект
3) Как открыть или содать документ в Excel если в нём открыт другой файл?

Если можите, кидайте исходник!
Всем огромное пасибо кто ответтил!

[Vladimir!]

Все гениальное просто.
Excel (кстати, как и Word) - программа, созданная с использованием MDI. Какие проблемы?javascript:emoticon(':lol:')

[Александр Дмитриев]

1) Как можно в контролле RichTB выделять строки разным цветом
2) Как мона в него же впихнуть ссылки, чтоб при нажатии пользователь переходил на объект

Код: Выделить всё

Dim intSelStart As Integer, intSelLength As Integer
Private 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

Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(0, 0, 255)
intSelStart = RichTextBox1.SelStart
intSelLength = RichTextBox1.SelLength
End Sub

Private Sub RichTextBox1_Click()
If RichTextBox1.SelStart >= intSelStart And RichTextBox1.SelStart <= intSelStart + intSelLength And intSelLength <> 0 Then
ShellExecute Me.hwnd, vbNullString, "Объект", vbNullString, "c:", 1
End If
End Sub