@79137913: Dudé si estaba mal o si yo lo entendí mal, puesto que eres tú quien suele corregirme y ayudarme en lo que respecta al Visual Basic 6, x)

Un saludo

O bien entendí mal, o el código de 79137913 es incorrecto... He entendido que se debían mostrarse en un ListBox los números pares de una secuencia (p.ej: desde 2 (que sería x) hasta el 30 (que sería y), vuestros códigos muestran números pares hasta 60 sin contar el 2). Entonces... ¿Qué es esa R que ponéis?

Código Nightwinds [incorrecto]:

Private Sub Vw_Click()
Dim x1 As Integer
Dim y1 As Integer
Dim z As Integer
r = 2
x1 = Val(x.Text)
y1 = Val(y.Text)
For x1 = r To y1
 
z = x1 * r
c.AddItem z
Next x1
End Sub

Código 79137913 [incorrecto]:

Private Sub Vw_Click()
DIM X1 AS INTEGER
DIM X2 AS INTEGER
DIM Z AS INTEGER
DIM R AS INTEGER
    x1 = Val(x.Text)
    y1 = Val(y.Text)
    R=2
    FOR X1 = X1 TO Y1
        Z = X1*R
        IF X1 > Y1 THEN EXIT FOR 'Este X1 se deberia cambiar por Z
        c.AddItem z
    NEXT
End Sub

Código 79137913 [corregido]:

Private Sub Vw_Click()
Dim X1 As Integer
Dim X2 As Integer
Dim Z As Integer
Dim R As Integer
    X1 = Val(x.Text)
    Y1 = Val(y.Text)
    R = 2
 
    For X1 = X1 To Y1
        Z = X1 * R
        If Z > Y1 Then Exit For 'Con el cambio hecho
        c.AddItem Z
    Next
End Sub

El código que yo propuse antes ahora manteniendo la estructura de Nightwinds [correcto]:

Private Sub Vw_Click()
Dim x As Integer
Dim y As Integer
 
x = Text1.Text 'desde
y = Text2.Text 'hasta
 
While x <= y
If x / 2 = CInt(x / 2) Then
    List1.AddItem (x)
End If
x = x + 1
Wend
End Sub

Corríganme si me equivoco,
Un saludo

En realidad, eso que tu has hecho no muestra los números pares de una secuencia, si no que multiplica x1 por r unas y veces: (y(x1*r)). Aquí te dejo lo que yo haría:

Dim i As Integer
Dim j As Integer
 
i = Text1.Text
j = Text2.Text
 
While i <= j
If i / 2 = CInt(i / 2) Then
    List1.AddItem (i)
End If
i = i + 1
Wend

Eso haría que aparecieran en el ListBox los números pares desde i hasta j, es decir: [i, j]
Espero que te sirva,

Un saludo

Lo primero, muchas gracias a todos por intentar ayudarme 

Bueno, a quienes me dijeron que podía guardar los cambios en un archivo aparte (o demás), ya lo había pensado, pero no me viene bien pues quiero que se pueda utilizar el programa en diferentes ordenadores, sin necesidad de nada más que el ejecutable.

Por lo que miré el código de BlackZeroX pero no entendí nada... :S
Es decir, si yo utilizo el SaveSetting (), y quiero guardar una variable, ¿Cómo debo hacerlo?

Gracias de nuevo,
Un saludo

Quisiera saber si hay algún modo de que se pueda editar una variable en tiempo de ejecución y guardar los cambios producidos aunque se cierre el ejecutable, es decir, que se guarden los cambios para la siguiente ejecución.

Por ejemplo: tengo un textbox (texto: text1), una Label (caption: label1) y un botón (caption: command1).
Cuando lo ejecuto no me aparece más que eso y no hay ninguna acción.

Lo que yo quiero es que al pulsar el botón se escriba el contenido del textbox en el label1 (label1.caption = text1.text) y se quede así de tal modo, que después de cerrar el ejecutable y abrirlo otra vez el caption del label sea: text1



No encontré nada, quizás porque no busqué bien, le estaría enormemente agradecido a quien me puediera orientar o ayudar. Gracias de antemano,

Un saludo

Oks, pues lo probaré y ya diré qué tal me fue.
Gracias por el consejo

Un saludo

Sí, pero aún así Windows es muy Windows y se sigue con Windows. 

Me dice que no se puede aplicar puesto que no se cambió nada... Sigo igual.

Un saludo

¡No se me había ocurrido! 
Muchas gracias 79137913

Un saludo

Si pensara que pude haber hecho algo mal, lo diría, por muy vergonzoso que fuera... Si pregunto algo será para intentar dar con la solución, por ello no pondré obstáculos ridículos a quienes me intenten ayudar (creo que actúo con lógica).

Pero bueno, aunque bastante seguro de que esto nada tiene que ver:

• Arranqué el SuperAntiSpyware
• Pase un archivo que tenía al USB

Nada más... Gracias por responder
Un saludo

Buenas;
Hace dos días booteé desde Hiren's BootCD, en el computador (con CD) y en el netbook (por USB). En ambos inicié sesión con "Mini Windows Xp" (sin necesidad alguna, únicamente por probar) y apenas hice nada.
 
Ahora que intento guardar un .txt en el HD, me aparece el siguiente mensaje en el computador (Windows XP Professional) "No se puede guardar en la carpeta especificada. Elija otra ubicación."

Me pasa lo mismo cuando intento guardar algo en los Documentos del netbook (Windows 7 Ultimate), me aparece el mensaje y no me deja guardar.

Tengo la sensación de que aunque me salga asignada la letra "C:\" al disco duro, al intentar algo con "Guardar como" lo hace en la letra "E:\", la cual me asignó el Hiren's a los Discos Duros de cada uno de los ordenadores cuando inicié sesión con el Mini Windows Xp...

¿Alguien sabe cómo solucionarlo? Gracias de antemano,

Un saludo.