Duplicate Text when to use Copy and Past

[mutley]

Hi

When I tried to copy a Text from textbox (eg) It is duplicate text


Example , in textbox there is "ABCDEF", when copy and Past in other textbox It past : ABCDEFABCDEF
My code

'in form
Private Sub mnuCopy_Click()

    Call lgEditCopyProc(Me.ActiveControl)
    Exit Sub
End Sub


'in library bas
Sub lgEditPasteProc(pctl As Control)
 ' Place text from Clipboard into given control
  pctl.SelText = Clipboard.GetText()
end sub


Sub lgEditCopyProc(pctl As Control)
  ' Copy selected text to Clipboard
  Clipboard.SetText pctl.SelText
end sub