Private Sub ExportLink(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Clipboard.SetText(urlSourceCdoe)
        MessageBox.Show("the link is " & urlSourceCdoe & vbCrLf & "It is copied into clipboard so you can paste it any where", "AfterCopy3.0", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    End Sub