Tengo Problemita    
 
no se porque me sale wario y mario  solo

Alguien me puede ayudar

Private Sub Form_Load()
Private Sub Timer1_Timer()
Timer1.Enabled = True
Mario.Visible = True
Luigi.Visible = False
wario.Visible = False
Timer2.Enabled = False
End Sub
 
Private Sub Timer2_Timer()
Timer2.Enabled = True
Luigi.Visible = True
Mario.Visible = False
wario.Visible = False
End Sub
 
Private Sub Timer3_Timer()
Timer3.Enabled = True
wario.Visible = True
Luigi.Visible = False
Mario.Visible = False
End Sub
End Sub

Como Yo Hago Un loop con 6 fotos  cuando llega a la ultima foto vuelve a la primera

dim jumps as integer
for jumps = 1 to 6  
image1.visble=true
image2.visble=true 
image3.visble=true
image4.visble=true
image5.visble=true
image6.visble=true
 
next jump
 
End Sub
 

Tengo una duda

Yo Tengo Un Combo Box Con Lo Siguiente

If Combo1.Text = "Sencilla" Then
precio = 5500
 
ElseIf Combo1.Text = "Doble" Then
precio = 4200
 
ElseIf Combo1.Text = "Triple" Then
precio = 3300

  Y Un Label Que dice reservaciones  con dos DTPickers   ahora yo quiero saber como hago lo de reservaciones  ejemplo si yo me registro el 6/8/15 y pienso quedarme  hasta  11/8/15  yo quiero que  suma los dias que yo me eh quedado  segun el tipo de habitacion lo cual son(Sencilla,Doble,Triple)

creo que es dtpicker1.value=


ejemplo si yo elijo Sencilla ($5,500) y pienso quedarme dos dias  quiero que suma los dias   primerdia: $5,500  segundoDia:$5,500    =        $11,000 * habitantes

Estoy Haciendo un Programa Con base de datos  tengo 3 (Campo Calculados) en access


Queria saber si se puede vincular Access 2010 con vb6   he visto videos por ahi que dicen que cambia el formato  pero cuando lo cambio a format(2000)   cuando lo cambio  le doy a calculated fields pero no me hacer nada

Tengo Una Duda


Tengo Dos Combo Box Con Labels El Primer Label Dice (Marca) con el combo box 1
y el segundo label dice (Modelos ) con el combo box 2

ahora mi pregunta es  cuando yo elijio una marca ejemplo ( Audi ) yo quiere que salga en el combo box 2  los modelos del Audi

MI Codigo en el Comb1_click() es 
if combo1.text="Audi" then
comb2.text="Q7"
comb2.text="R8"

Asi Sucesivamente

Estoy Usando VB6

como yo hago para que se cierre form 2  cada vez que le doy entrar me aparece form1 y despues vuelve form2

Private Sub lblentrar_Click()
If lblentrar = True Then
Form2.Hide
Form3.Show
End If
End Sub

tengo 3 forms   en primer form  cuando se termina la barra de progreso

form2.show

ahora cuando le doy entrar en el form2   me tiene que salir el form3

pero cuando le doy enter  me sale form3 y aparece el form2 (como un pop up) como lo quito

Como Usa El Format Currency en visual basic 6.0

como yo sago la tasa en visual basic 6.0  ejemplo


convertir dolares a peso      la tasa es 22.5

a medida que yo cambio la tasa  los pesos van cambiando



creo es con formatcurrency

Tengo una duda     como you hago que se cambie automaticamente  desde un textbox

me explico  tengo con un  combobox con sumar y restar (Solo dos)

y tengo 3 textbox   el textbox de los  dos numeros y  el resultado

yo quiero que el resultado se actualiza cada vez que digito los valores
sin boton

creo que se hace en el  txtN1_change

estoy usando visual basic 6.0

Disculpa La Molestia

"Estoy Usando Visual Basic 6.0"


Ejemplo Mi programa tiene 3 botones de opcion cada uno con su candidato

y abajo tengo 3 barra de progreso para cada candidato correspondido

yo quisiera saber como hago cuando doy click al candidato que quiero votar la barra progreso va aumentado si le doy click de nuevo sigue aumentado

cuando le doy click a mi candidato me sale ejemplo Juan Balbuena (barra de progreso) 1% solo se llena una vez  mientras que porcentaje sigue  y la barra de progreso sigue en uno   cuando estoy en el 35% la barra de progreso esta en 4 barras

Aqui Esta Mi codigo


If Me.OptionDanilo.Value = True Then
ProgressDanilo.Value = ProgressDanilo.Value + 1
lblDani.Caption = ProgressDanilo.Value

ElseIf Me.OptionLeonel.Value = True Then
ProgressLeonel.Value = ProgressLeonel.Value + 1
lblLeo.Caption = ProgressLeonel.Value

Else
ProgressHipolito.Value = ProgressHipolito.Value + 1
lblHip.Caption = ProgressHipolito.Value

End If