Private Sub CommandButton3_Click()
________Load FormDefinir
________FormDefinir.Show
End Sub

Private Sub Image1_Click()
________End
End Sub

Private Sub Label11_Click()
________Load propaganda
________propaganda.Show
End Sub

Private Sub ListaEscoger_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
________On Error Resume Next
________plantilla = Trim(ListaEscoger.List(ListaEscoger.ListIndex))
________plantilla_con_path = "c:\plantillas\" + plantilla
________Selection.InsertFile FileName:=plantilla_con_path, Range:="", _
________ConfirmConversions:=False, Link:=False, Attachment:=False
________Unload FormEscoge
________Load FormPlantilla
________FormPlantilla.Show
End Sub

Private Sub UserForm_Initialize()
________ListaEscoger.Clear
________Close
________Open archconf For Random As 1 Len = largoC
________Get 1, 1, conf
________ultimo = Val(conf.nombre)
________For z% = 2 To ultimo + 1
________________Get 1, z%, conf
________________ListaEscoger.AddItem conf.nombre
________Next z%
________Close
End Sub