Paste into textbox

Paste text from clipboard into textbox

CodeFunctionName
What is this?

Public

Tested

Original Work
' If we have textbox named Txt1 and a button named CmdPasGo in a form
' Command below will replace text inside textbox with text from clipboard

Private Sub CmdPasGo_Click()
    Txt1.SelStart = 0
    Txt1.SelLength = Len(Txt1.Text)
    Txt1.Paste
End Sub

Views 786

Downloads 298

CodeID
DB ID