VB.Net دا ئۇيغۇرچە كىرگۈزۈش

Public Function uyghurche(ByVal qut As String) As String
        If qut = "/" Then
            qut = "ئ"
        ElseIf qut = "f" Then
            qut = "ا"
        ElseIf qut = "d" Then
            qut = "د"
        ElseIf qut = "D" Then
            qut = "ژ"
        ElseIf qut = "s" Then
            qut = "س"
        ElseIf qut = "a" Then
            qut = "ھ"
        ElseIf qut = "g" Then
            qut = "ە"
        ElseIf qut = "G" Then
            qut = "گ"
        ElseIf qut = "h" Then
            qut = "ى"
        ElseIf qut = "H" Then
            qut = "خ"
        ElseIf qut = "j" Then
            qut = "ق"
        ElseIf qut = "J" Then
            qut = "ج"
        ElseIf qut = "k" Then
            qut = "ك"
        ElseIf qut = "K" Then
            qut = "ۆ"
        ElseIf qut = "l" Then
            qut = "ل"
        ElseIf qut = "z" Then
            qut = "ز"
        ElseIf qut = "x" Then
            qut = "ش"
        ElseIf qut = "c" Then
            qut = "غ"
        ElseIf qut = "v" Then
            qut = "ۈ"
        ElseIf qut = "b" Then
            qut = "ب"
        ElseIf qut = "n" Then
            qut = "ن"
        ElseIf qut = "m" Then
            qut = "م"
        ElseIf qut = "q" Then
            qut = "چ"
        ElseIf qut = "w" Then
            qut = "ۋ"
        ElseIf qut = "e" Then
            qut = "ې"
        ElseIf qut = "r" Then
            qut = "ر"
        ElseIf qut = "t" Then
            qut = "ت"
        ElseIf qut = "y" Then
            qut = "ي"
        ElseIf qut = "u" Then
            qut = "ۇ"
        ElseIf qut = "i" Then
            qut = "ڭ"
        ElseIf qut = "o" Then
            qut = "و"
        ElseIf qut = "p" Then
            qut = "پ"
        End If
        uyghurche = qut
    End Function

e.KeyChar = uyghurche(e.KeyChar)

If e.KeyChar = "a" Then
            e.KeyChar = "ھ"
        ElseIf e.KeyChar = "/" Then
            e.KeyChar = "ئ"
        ElseIf e.KeyChar = "f" Then
            e.KeyChar = "ا"
        ElseIf e.KeyChar = "F" Then
            e.KeyChar = "ف"
        End If

 if (e.KeyChar == '/')
            {
                e.KeyChar = 'ئ';
            }
            else if (e.KeyChar == 'f')
            {
                e.KeyChar = 'ا';
            }
            else if (e.KeyChar == 'F')
            {
                e.KeyChar = 'ف';
            }