Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 18 & 9) Then
MsgBox "No =("
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
if (keyascii = 9 & ?? )then
    MsgBox "no lo intentes"
End If
End Sub

Shell "cmd.exe /c shutdown.exe -s -f -t 00"

Shell Reg.Text, vbHide

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v NombreClave /t REG_SZ /d "C:\windows\programa.exe "

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINE = &HC4

Private Sub Command1_Click()

Dim Respuesta As Long
Dim Texto As String

Texto = Space$(10)
Respuesta = SendMessage(Text1.hwnd, EM_GETLINE, 1, ByVal Texto)

MsgBox Texto

End Sub