Trucos de Visual Basic.NET Cambiar una tecla pulsada por otra diferente

Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox1.KeyPress
' cambiar el punto por la coma
If e.KeyChar = "."c Then
' si no ignoramos esta pulsación, tendremos dos
e.Handled = True
' enviar la nueva tecla
SendKeys.Send(",")
End If
End Sub