Visual Basic - Consulta de Edición

Mi consulta es la siguiente, realize un menu en donde aparecen los tipicos de Edición como ser, Abrir, Cortar, Copiar etc.., ahora como puedo yo hacer cuando copio y quiero pegarlo en otra caja de texto, ya se que eso aparece con el boton derecho del mouse, pero estoy pretendiendo que no sea asi, sino através de códigos, ojala que me puedan ayudar, desde ya muchas gracias.

Podes hacer un control OCX con el textbox implementando todas las propiedades y métodos y capturando los mensajes de Copy y Paste, fijate con esto:

Public Const WM_CUT = &H300
Public Const WM_COPY = &H301
Public Const WM_PASTE = &H302
Public Const WM_CLEAR = &H303
Public Const GWL_WNDPROC = -4
Public Const WM_RBUTTONUP = &H205
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public lpPrevWndProc As Long
Private lngHWnd As Long
Public Sub Hook(hWnd As Long)
lngHWnd = hWnd
lpPrevWndProc = SetWindowLong(lngHWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHook()
Dim lngReturnValue As Long
lngReturnValue = SetWindowLong(lngHWnd, GWL_WNDPROC, lpPrevWndProc)
End Sub
Public Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
Case WM_CUT
Case WM_COPY
Case WM_PASTE
Case WM_CLEAR
Case WM_RBUTTONUP
Case Else
WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Select
End Function