كود منع ادخال المسافات في مربع النص

ادخل الكود في الفورم

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 32 Then

        KeyAscii = 0

    End If

End Sub