CAnt type arabic

See more:

VB6

Dear Brothers, Assalamu alaikum

i found your email address in www.codeproject.com/script/Answers/Post.aspx? I have developed an application LAN messenger application.
which is using TextBox from . I have to provide the support of the ARABIC characters. Using the "Regional Setting" Arabic Keyboard had been installed. We have selected the Arabic Font. While typing the characters on TextBox Control, it is displaying some other characters, which are not ARABIC characters and arabic numbers are also not appearing. Those characters are as follows.

áÇÊäÈí
ÈáÊãäíÈÊáäíÈäáíÈäáÊÇäÈ
ÊÈÇáÊÇáÊÇÈÊä
ÈÊáÇ
could you pls help me us to display Arabic characters in the TextBox control while typing through the normal (English) keyboard? What may be the ways to edit ARABIC characters on this Text1.text control ?


I will paste the code here... (whatever i type in arabic should be displyed in text1.text) Pls help me because i want to submit this application today tomorrow morning. OR if you have similar codiing to work this arabic characters in a vb text , pls send it to me...I will follow up..if you can send today it will be a grade helpful for me....May allah bless you and your family. May God give you sound of knowldge. Thanks Iqal .... email iqbalaski@gmail.com.....
------------------------

Private Sub Command2_Click()
    Dim send As String
    computer = List1.List(List1.ListIndex)
    send = "net send " & computer & " " & Text1.Text
    If Text1.Text = "" Then
        MsgBox("Please enter a message.", vbCritical)
    ElseIf computer = "" And Check1.Value = 0 Then
        MsgBox("Please select a computer name", vbExclamation)
    ElseIf Check1.Value = 1 Then
        Dim i As Integer
        For i = 4 To X - 2
            send = "net send " & strLine(i) & " " & Text1.Text
            Shell(send)
        Next i
        MsgBox("Message sent to all computers on your network", vbInformation)
    Else
        Shell(send)
        MsgBox("Message has sent to " & computer, vbExclamation)
    End If
End Sub

Private Sub Command3_Click()
    Text1.Text = ""
End Sub

Private Sub Command4_Click()
    Unload(Me)
End Sub

Private Sub Form_Load()
    a = "Inmasteel LAN Messenger Service System : .......Inmasteel LAN Messenger Service System:.......Inmasteel LAN Messenger Service System:......."
    b = Len(a) - 3
    n = "For your any knid of Business Solution Please do contanct us.............. "
    l = Len(n) + 103
    Randomize()
    Call ref()
    ' Setup our messages
    MsgArray(1) = "Communication is"
    MsgArray(2) = "Essential To"
    MsgArray(3) = "Providing Excellent Care"
    MsgArray(4) = ""
    MsgArray(5) = "Communication Empowers"
    ' Use a blank entry for a greater pause before the next message !
    MsgArray(6) = "Creativity and Success"
    MsgArray(7) = ""
    MsgArray(8) = "Good ommunication and Teamwork"
    MsgArray(9) = "Exploring Mental Maps"
    ' Set the current message
    curMsg = 1
    ' Set our counter to zero
    counter = 0
    ' This is our boolean (true/false) variable which will be used
    ' to determin if we are fading the text in or out. To start we
    ' set it to true so our text will fade in first.
    fIn = True
    ' Show the form
    Me.Show()
End Sub