Tidak Bisa Input Lewat Keyoard Pada Program VB

Hay sobat programer... Kali ini saya akan berbagi cara agar program yang kita bikin tidak dapat kita inputkan melalui keyboard.... Hemmz... Begini scriptnya....

Private Sub txtNamaAnggota_KeyPress(Keyascii As Integer)
legal = " "
If InStr(legal, Chr(Keyascii)) = 0 Then
        Beep
        Keyascii = 0
End If
End Sub

Gampang kan....! Semoga tutorial yang sedikit ini ada manfaatnya... :)