Vb.net Alt键和shift键不使用'；我不能在RichTextBox中暂时工作

这是一个奇怪的情况，但我甚至不知道如何调试这个问题。我的程序使用两种输入语言（英语和阿拉伯语），当我第一次运行程序并按任意英语字母，然后按Alt+shift切换语言时，它不工作！然后，当我按Ctrl+shift将方向切换到RightToLeft，然后再次尝试Alt+shift时，它会工作！在那之后，他还在为所有的案子工作

实际上，可能是我的代码导致了这个问题，但我无法调试它！我试过了

注意：在没有代码的新RichTextBox中，它通常使用Alt+shift，但不接受Ctrl+shift，因此我添加了if语句以使Ctrl+shift正常工作，但这不是问题的原因，因为我尝试删除它，但问题仍然存在

注2：我不知道更改

选择开始

和

选择长度

是否会导致问题，因为我在myFunction中对它们进行了大量更改，但在函数结束时将它们返回到以前的状态

我的代码使ctrl+shift有效

    Private Sub RichTextBox_KeyUp(sender As Object, e As KeyEventArgs) Handles RichTextBox.KeyUp
        Try

            ' if Ctrl and Shift are pressed then change text-align ( shift+ctrl OrElse ctrl+shift)
            If (e.Modifiers = Keys.Shift OrElse e.Modifiers = Keys.ShiftKey) AndAlso
                (e.KeyCode = Keys.ControlKey OrElse e.KeyCode = Keys.Control) OrElse _
 _
                ((e.Modifiers = Keys.Control OrElse e.Modifiers = Keys.ControlKey) AndAlso
                (e.KeyCode = Keys.Shift OrElse e.KeyCode = Keys.ShiftKey)) Then

                If RichTextBox.RightToLeft = Windows.Forms.RightToLeft.Yes Then ' if align is rightToLeft 
                    RichTextBox.RightToLeft = Windows.Forms.RightToLeft.No ' then make it LeftToRight

                Else
                    RichTextBox.RightToLeft = Windows.Forms.RightToLeft.Yes
                End If

                RichTextBox.SelectionStart = RichTextBox.TextLength
            End If

            ' Calling subroutine myFunction
            Call myFunction()

        Catch ex As Exception
        End Try
    End Sub

---

为什么这里没有人帮忙！！为什么这里没有人帮忙！！