Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
DataObject
Public Sub EmptyClipBoard()
Dim myClipboard As New DataObject
Dim l_sText As String
Dim l_sTest As String
l_sText = "Hallo, world"
myClipboard.SetText l_sText
myClipboard.PutInClipboard
myClipboard.GetFromClipboard
l_sTest = myClipboard.GetText
MsgBox l_sTest
myClipboard.Clear
Set myClipboard = Nothing
End Sub