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
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