a little bug fix...


Public Sub SetClipboard()
On Error Resume Next

If m_clip < "" Then
m_clipboard.SetText m_clip
m_clipboard.PutInClipboard
End If
End Sub

Public Sub ClearClipboard()
On Error Resume Next

m_clip = ""
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Sub