Buenos Días

Este es mi codigo para el pantallaso 4(estoy aprendiendo a programar de forma Autodidacta), espero este bien y le sea util a alguien :

Private Sub CmdSalir_Click()
    End
End Sub

Private Sub Form_Load()
    MsgBox "Ingrese los nombres de las Personas"
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Txt10P_LostFocus()
    List1.AddItem Txt10P.Text
End Sub

Private Sub Txt1P_LostFocus()
   List1.AddItem Txt1P.Text
End Sub

Private Sub Txt2P_LostFocus()
    List1.AddItem Txt2P.Text
End Sub

Private Sub Txt3P_lostFocus()
    List1.AddItem Txt3P.Text
End Sub


Private Sub Txt4P_LostFocus()
    List1.AddItem Txt4P.Text
End Sub

Private Sub Txt5P_LostFocus()
    List1.AddItem Txt5P.Text
End Sub

Private Sub Txt6P_LostFocus()
     List1.AddItem Txt6P.Text
End Sub

Private Sub Txt7P_LostFocus()
      List1.AddItem Txt7P.Text
End Sub

Private Sub Txt8P_LostFocus()
    List1.AddItem Txt8P.Text
End Sub

Private Sub Txt9P_LostFocus()
    List1.AddItem Txt9P.Text
End Sub

Que tal soplo, soy nuevo en esto de programacion en VB6.0, estoy aprendiendo de forma autodidacta, ya resolvi el ejercicio 3, segun yo ya funciona como lo pides en el ejercicio, lo que no supe poner es: despues de ingresar la contraseña que prosiga el programa si el usuario presiona enter, sin pasar a el boton aceptar, se que el codigo ascii para el enter es CHR(13), como le puedo hacer para que lo acepte.
saludos