Puse Otro Combo box Con Nombre   Se me Estaba complicando las cosas


Tengo dos Combox  el de fruta el de nombre

en form 2 tengo un label llamado lblnombre



lblnombre.text no me deja dar ejecutar

solo me sale la fruta en text pero en label nada

 
form2.lblfruta=textfruta.text
 
form2.lblnombre=me.combo1.text
 

Tengo Un Combo box con 5 frutas    cuando doy ejemplo a manzana  que aparezca en el textbox y en el label? Pero en otro Formulario

combo1.additem "Manzana"
combo1.additem"Naranja"
combo1.additem "Uvas"
combo1.additem "Guineos"
combo1.additem "Pera" 

Intenta algo asi pero cambialas con x,z,y

For i = 2 To 16 Step 2
Print cont & "-" & i
cont = cont + 1
Next i
End Sub

No me hace nada tengo el timer interval en 1000 y todavia

Private Sub Form_Load()
Dim jumps As Integer
For jumps = 1 To 2
Mario.Visible = True
Luigi.Visible = True
Next
End Sub
 
Private Sub Timer1_Timer()
Timer1.Enabled = True
End Sub

www.youtube.com/watch?v=gw6iV3qaXWM

Queria Hacer Algo asi Dale en 2:08

Tengo 3 fotos  Mario,Wario,Luigi         Y tengo 3 Timers


     Comienza Con Mario Y Termina Con Luigi y asi sucesivamente  pero no me sale luigi solo  mario y wario

Seria Con Timer ?   por que no me hace nada

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

Gracias Por Tu Ayuda!