Visual Basic. Работа с буфером обмена

[rublyabachka]

Написала программу типа блокнота, только текст в формате rtf. При помощи функции, в которой написаны эти строки

Dim bb As String
        bb = My.Computer.Clipboard.GetText()
        If bb <> "" Then
            Text_Editor.PasteToolStripMenuItem.Enabled = True
            Text_Editor.PasteB.Enabled = True
        Else
            Text_Editor.PasteToolStripMenuItem.Enabled = False
            Text_Editor.PasteB.Enabled = False
        End If

ставлю видимость кнопки Вставить, но почему то программа падает при вызове этой функции и указывает на эту строку

bb = My.Computer.Clipboard.GetText()

Для эксперимента писала такое

MsgBox(My.Computer.Clipboard.GetText())

происходит тоже самое...
Как исправить???

[doober]

Попробуйте так

  ' Вариант1
        If My.Computer.Clipboard.ContainsText() AndAlso Not My.Computer.Clipboard.GetText() Is Nothing Then
            Text_Editor.PasteToolStripMenuItem.Enabled = True
            Text_Editor.PasteB.Enabled = True
        Else
            Text_Editor.PasteToolStripMenuItem.Enabled = False
            Text_Editor.PasteB.Enabled = False
        End If
        'Вариант2

        If My.Computer.Clipboard.ContainsText(TextDataFormat.Rtf) AndAlso Not My.Computer.Clipboard.GetText(TextDataFormat.Rtf) Is Nothing Then
            Text_Editor.PasteToolStripMenuItem.Enabled = True
            Text_Editor.PasteB.Enabled = True
        Else
            Text_Editor.PasteToolStripMenuItem.Enabled = False
            Text_Editor.PasteB.Enabled = False
        End If

[rublyabachka]

Спасибо большое! но и это почему то не работает.... (((

[doober]

Проект в студию на вскрытие.
У себя проверил,все работает
Добавил пример.
Скопируйте текст и получите его в лейбе

[rublyabachka]

действительно работает! я знаю что и то 100% должно работать....

[doober]

Добавте таймер ,вы по другому буфер не отследите.

  
  Timer1.Enabled=True
 Timer1.Interval = 200
  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Doc.ClipboardCh()
    End Sub

[rublyabachka]

спасибо за помощь! заработало))