'***************************************************
                        
                                                 © Copyright 2001-2012 Copyright .es - All Rights Reserved

                                          '***************************************************


Private Sub Command1_Click()
'con este codigo guardamos un texto desde el text1
List1.AddItem Text1.Text
'dejamos el text en blanco
Text1 = ""
End Sub

Private Sub Command2_Click()
'Este codigos es para:
'Cuando nosotros presionamos el boton Eliminar.
'y no marcamos ningun texto, nos tira un error... y nos
'cierra la aplicacion , este codigo nos sirve para
'que no nos cierre el proyect
If List1.ListIndex <> -1 Then
List1.RemoveItem List1.ListIndex
MsgBox "El texto fue borrado", vbInformation, Info
End If
End Sub

Private Sub Command3_Click()
'borramos el list1
List1.Clear
End Sub

Private Sub Command4_Click()
'con este comando salimos del proyecto por completo
MsgBox "Gracias por usar esta agenda", vbInformation, "Info"
End
End Sub


Private Sub Form_Load()
'y en esta parte le damos nombre a los botones
Command1.Caption = "Guardar"
Command2.Caption = "Eliminar Texto"
Command3.Caption = "Borrar todo"
Command4.Caption = "Salir"
'le sakamos el texto al text
Text1.Text = ""
'
List1.Text = ""
End Sub