turko94_cn@hotmail.com ;) dale q me agregabas? // FLORA TEAMA:)

lllllllllllloool XD

TE COMENTOO QUE ME GUSTO ESA FOTO(a)
JAJAJAJAJ TEAAAAAAAAAAAAAMO MI AMOR,GGGGRACIAS POR TODO!!!

HScroll1.Width = Label1.Width
HScroll1.Height = Label1.Height / 8
HScroll1.Left = 0
HScroll1.Top = Form1.Height - HScroll1.Height - Form1.Height / 8
HScroll1.Min = 0
HScroll1.Max = Label1.Width - Label4.Width
HScroll1.SmallChange = 300
HScroll1.Value = HScroll1.Min

End Sub

Private Sub HScroll1_Change()
Label4.Left = (HScroll1.Value)

Private Sub Timer1_Timer()
Label3.Left = Label3.Left + 100
If Label3.Left + Label3.Width = Form1.Width Then
Timer1.Enabled = False

Private Sub Timer2_Timer()
Label3.Left = Label3.Left - 100
If Label3.Left = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub


y esto otro va en el load:
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 1
Timer2.Interval = 1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyO Then
For i = 1 To 5
Label1(i).Top = Label1(0).Top
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Next i
End If
If KeyCode = vbKeyLeft Then
For i = 1 To 5
Label1(i).Top = Label1(0).Top
Label1(i).Left = Label1(i - 1).Left - Label1(i - 1).Width / 2
Next i
End If
If KeyCode = vbKeyRight Then
For i = 1 To 5
Label1(i).Top = Label1(0).Top
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width * 2
Next i
End If
If KeyCode = vbKeyV Then
For i = 1 To 5
Label1(i).Left = Label1(0).Left
Label1(i).Top = Label1(i - 1).Top + Label1(0).Height
Next i
End If
If KeyCode = vbKeyD Then
For i = 1 To 5
Label1(i).Left = Label1(i - 1).Left + Label1(0).Width
Label1(i).Top = Label1(i - 1).Top + Label1(0).Height
Next i
End If
End Sub

Private Sub Form_Load()
For i = 0 To 5
Label1(i).BorderStyle = 1
Label1(i).Caption = i + 1
Label1(i).Font = "arial"
Rem Label1(i).Appearance = 0
Label1(i).AutoSize = True
Label1(i).BackColor = vbRed
Next i
Form1.WindowState = 2
Form1.KeyPreview = True
End Sub

Private Sub Form_Resize()
For i = 0 To 5
Label1(i).FontSize = Form1.Width / 200
Label1(0).Left = Form1.Width / 5
Label1(0).Top = Form1.Height / 20
Next i
End Sub

turko la paja te deja asi u.u

un ree beso

JAJAJ MÁS CAPO MANU.
TEAMO TANTO TURQUEY, SOS TODO EI(l