ayuda comprension del codigo

[toods]

Hola, necesito ayuda.
me podrian decir que hacen estas partes de codigo,,

parte1

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Label1.Caption = cboClubes.Text
End Sub
Combobox(cboClubes) - button - label


parte2

Código [Seleccionar] Expandir

Dim cambio As Integer

Private Sub Form_Load()
cambio = 250
End Sub

Private Sub tmrReloj_Timer()
imgNube.Left = imgNube.Left + cambio
If imgNube.Left > (Me.ScaleWidth - imgNube.Width) Then cambio = cambio * -1
If imgNube.Left < 0 Then cambio = cambio * -1

End Sub
imgNube es una imagen
Timer

gracias de antemano ...

[BlackZeroX]

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico3.htm#variables

Dulces Lunas!¡.

[Fitoschido]

Odio las respuestas de la gente que consisten sólo en un enlace y no escriben nada, como si no quisieran molestarse en contestar a los subordinados plebeyos xDDD

Te lo explicaré:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Label1.Caption = cboClubes.Text
End Sub

En pseudocódigo, esto dice:

Procedimiento Clic en Command1:
  El Caption de Label1 igual a Texto de cboClubes
Fin Procedimiento

O sea, Indicar que al hacer clic en ese botón se ejecutará el código dentro de ese procedimiento, que en este caso es igualar el caption de Label1 al texto de cboClubes.

Código (vb) [Seleccionar] Expandir

Dim cambio As Integer

Private Sub Form_Load()
cambio = 250
End Sub

Private Sub tmrReloj_Timer()
imgNube.Left = imgNube.Left + cambio
If imgNube.Left > (Me.ScaleWidth - imgNube.Width) Then cambio = cambio * -1
If imgNube.Left < 0 Then cambio = cambio * -1

End Sub

Declarar (Dim) el texto "cambio" como Entero (integer)

Procedimiento CargarFormulario:
   "cambio" (declarado como Entero) igual a 250
Fin Procedimiento

Procedimiento Intervalo de Timer:
   Posición Left de imgNube igual a la misma más el valor de "cambio" osea, le suma a Left el valor de cambio, 250.
   Si (If) posición Left de imgNube es mayor que AnchoFormulario (Me se refiere al form actual) menos Ancho de imgNube Entonces (Then) "cambio" será igual a su valor por -1

...

Espero te ayude, leelo literal.

Saludos