Text ) Then 'If it's text, then paste it into the textbox GetDataObject ( ) 'Check to see if the data is in a text format If iData. Click 'Get the data stored in the clipboard Dim iData As IDataObject = Clipboard. SelectedText ) Else 'If no text was selected, print out an error message box MsgBox ( 'No text is selected to copy' ) End If End Sub Private Sub btnPaste_Click ( ByVal sender As System. SelectedText '' Then 'Copy the information to the clipboardĬlipboard. Click 'Checks to see if the user selected anything If txtTextBox. SelectedText = '' Else 'If there was no text selected, print out an error message box MsgBox ( 'No text is selected to cut' ) End If End Sub Private Sub btnCopy_Click ( ByVal sender As System. SelectedText ) 'Since this is a cut command, we want to clear whatever 'text they had selected when they clicked cut SelectedText '' Then 'Good, the user selected something 'Copy the information to the clipbaordĬlipboard. Private Sub btnCut_Click ( ByVal sender As System.

'This code was developed by Gerardo Lopez and was downloaded from 'Complete source code is available at: ' Public Class Form1

How to use notepad ++ to write vb