Option Explicit

Private Sub Command1_Click() 'Klipper ut
Clipboard.SetText Text1.SelText
Text1.SelText = " "
End Sub

Private Sub Command2_Click() ' Klistra in
Text1.SelText = Clipboard.GetText
End Sub

Private Sub Command3_Click() 'Kopiera
Clipboard.SetText Text1.SelText
End Sub

Private Sub Command4_Click() 'Avsluta
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub