COMO Cerrar un Form automaticamente

[arnoldz]

bueno e estado beiendo un codigo de asociacion de programa i extensión me resulta muy bueno pero tengo el siguente peblema
:

al compilarlo me aparece una ventana de 30x30 como podria ahcer q se cierre esta vnetana intente por close no me sale ayudenem aqui esta el codigo :

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing

End Sub
----------------------------------------------

me gustaria q se cierre la ventana automatica oq haga la funcion sin nesesidad de formulario gracias

[RadicalEd]

bueno e estado beiendo un codigo de asociacion de programa i extensión me resulta muy bueno pero tengo el siguente peblema
:

al compilarlo me aparece una ventana de 30x30 como podria ahcer q se cierre esta vnetana intente por close no me sale ayudenem aqui esta el codigo :

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing

End Sub
----------------------------------------------

me gustaria q se cierre la ventana automatica oq haga la funcion sin nesesidad de formulario gracias

Cuando termine de hacer el Set obj=Nothing puedes colocar un Unload Me

[arnoldz]

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing
    ' Unload Me ?????

End Sub

----------------------------------------------

cual e sla manera correcta para q se pueda serrar gracias

[RadicalEd]

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing
    ' Unload Me ?????

End Sub

----------------------------------------------

cual e sla manera correcta para q se pueda serrar gracias

Descomenta el Unload Me, o en su defecto utiliza el Me.Close

[& eDu &]

--------------------------------------------------------
Private Sub Form_Load()
Dim obj As New Class1

    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    obj.Class = "Clase.xxx"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' ruta del icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
           
    ' asociar la extension
    obj.Associate
    Set obj = Nothing
    ' Unload Me ?????

End Sub

----------------------------------------------

cual e sla manera correcta para q se pueda serrar gracias

Si, utiliza el Unload Me pero sin el ' delante.