vb.net テキストボックスでの改行を無視する

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
           If e.KeyChar = vbCr Then e.Handled = True
End Sub