[سيما]

السلام عليكم
اخوتي الاعزاء
السؤال الاول 

كيف امنع المستخدم من استخدام المسافه في صندوق النص

السؤال الثاني
تحويل هذ الكود من vb6 الى vb 2010
ولكم فائق الود والاحترام

PHP كود :

List1.Clear

For i = 1 To Len(Text3)
    X = Mid$(Text3, i, 1)
    If X <> " " Then
        str0 = str0 + X
        str1 = str1 + " " + X
        len1 = len1 + 1
    End If
Next

List1.AddItem str1
'-----------------------------------
len2 = len1
If len1 Mod 2 = 0 Then
    m = len1 / 2
Else
    m = Int(len1 / 2) + 1
End If

10 len2 = len1
    For k = 1 To m
      X1 = Mid$(str0, len2, 1)
      str2 = str2 + " " + X1
      str3 = str3 + X1
      If k = Int(len1 / 2) + 1 Then GoTo 20
      X1 = Mid$(str0, k, 1)
      str2 = str2 + " " + X1
      str3 = str3 + X1
        len2 = len2 - 1
    Next
20  If List1.List(0) <> str2 Then
    List1.AddItem str2
    str0 = str3
    str3 = ""
    str2 = ""
GoTo 10
End If