17-10-12, 12:44 AM
كاتب الموضوع : AhmedEssawy
كود :
Sub mnuEdit_Click (Index As Integer)
' This routine is designed for a quick & dirty method for handling common edit menu functions.
Select Case Index
Case 0: SendKeys "%{BACKSPACE}" ' Undo
Case 1: SendKeys "+{DELETE}" ' Cut
Case 2: SendKeys "^{INSERT}" ' Copy
Case 3: SendKeys "+{INSERT}" ' Paste
End Select
End Sub