If sb.Length > 0 Then
clstr = sb.ToString()
Try
- Clipboard.SetDataObject(clstr, False, 5, 100)
+ Dim stotProc As New StotDelegate(AddressOf doStot)
+ stotProc.BeginInvoke(clstr, Nothing, Nothing)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
+ Private Sub doStot(ByVal text As String)
+ Me.Invoke(New StotDelegate(AddressOf Clipboard.SetText), text)
+ End Sub
+
+ Delegate Sub StotDelegate(ByVal text As String)
+
Private Sub CopyIdUri()
Dim clstr As String = ""
Dim sb As New StringBuilder()