Visual Basic.NET - Asignar Funcion a tecla

A ver, os comento...

Resulta que estoy haciendo un programa en VB .NET,
Entre otras funciones, como es el lanzador de aplicaciones, estoy haciendo una "mensajero". Es decir que estoy fabricando un "bicho" que a traves del "net send" de windows xp sp1, envie mensajes dentro de una red local entre ordenadores. El tema es que lo tengo y funciona de maravillas.

Pero uno de los compañeros que lo utiliza siempre me dice "jode tio raul que siempre que escribo en mensaje le doy al enter para que se envie... y me salta de linea...."

A lo que yo me pregunto.... he intentado varias formulas... tales como:

Código:
PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.Chr(13) Then Button1.Focus()
EndSub

o

Código:
PrivateSub Textbox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
' Visual Basic
' Set the first button to respond to the Enter key.
Me.AcceptButton = Button1
' Set the second button to respond to the Esc key.
Me.CancelButton = Command3
EndSub
Recurro a vosotros con el fin de que si alguien sabe un poquito me pueda decir como añadir, o vincular la tecla "Enter" al Button1 que es el que se encarga de realizar el envio segun el codigo:

Código:
PrivateSub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim wss AsObject

wss = CreateObject("wscript.shell")

'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto wss.run. Haga clic aqu para obtener ms informacin: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
wss.run("net send " & "BRFEX-368-" & Text2.Text & " " & Text1.Text)

Text1.Text = ""
Text2.Text = "Ordenador"
Label1.Text = "Extension"
Label2.Text = "Matricula"
ComboBox1.Text = ""
EndSub

Saludos

Prueba:

PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
If e.KeyChar = Chr(13) Then
Command1_Click(nothing,nothing)
end if
EndSub

Buenas tardes,

Compañero he probado lo que me has indicado, y te comento, En principio en la depuracion ha ido genial, justo lo que yo queria ;-)

Muchas Gracias!