|
' Чтение из Clipboard'a
Public Function fnClipboardGet()
Dim clsNSA As sNSA.clsNSA
Set clsNSA = New sNSA.clsNSA
fnClipboardGet = clsNSA.fnClipboardGet
Set fDB = Nothing
End Function
' Копирование в Clipboard с предварительной очисткой последнего
Public Function fnClipboardSet(strX)
Dim clsNSA As sNSA.clsNSA
Set clsNSA = New sNSA.clsNSA
Call clsNSA.fnClipboardSet(strX)
Set fDB = Nothing
End Function
| 
