Private Sub txtcmd_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
'if we press enter in the command line textbox, we want to check if it is enter
For i = 1 To 10
    If KeyCode = vbKeyReturn Then
    'and then execute the command
    Command = txtcmd.Text
    List1.AddItem txtcmd.Text, i
    Send (Command)
    txtcmd.Text = ""
End If
DoEvents
Next i

___________________________________________________________________

[u]http://www.su.am