Hola Juan Carlos
inserta un Hscroll1, un command1,un command2
ponle a hscroll1 el Max a 10
inserta en declaraciones el codigo de abajo y corre el programa
arrastrale o dale click
Private Sub Form_Load()
Command1.Left = 100
Command1.Width = 255
Command2.Left = 1000
Command2.Width = 255
HScroll1.Left = 100
HScroll1.Width = 1095
End Sub
Private Sub HScroll1_Change()
If HScroll1.Value = 1 Then
Command1.Left = 100
Command2.Left = 900
ElseIf HScroll1.Value = 2 Then
Command1.Left = 200
Command2.Left = 800
ElseIf HScroll1.Value = 3 Then
Command1.Left = 300
Command2.Left = 700
ElseIf HScroll1.Value = 4 Then
Command1.Left = 400
Command2.Left = 600
ElseIf HScroll1.Value = 5 Then
Command1.Left = 500
Command2.Left = 500
ElseIf HScroll1.Value = 6 Then
Command1.Left = 600
Command2.Left = 400
ElseIf HScroll1.Value = 7 Then
Command1.Left = 700
Command2.Left = 300
ElseIf HScroll1.Value = 8 Then
Command1.Left = 800
Command2.Left = 200
ElseIf HScroll1.Value = 9 Then
Command1.Left = 900
Command2.Left = 100
ElseIf HScroll1.Value = 10 Then
Command1.Left = 1000
Command2.Left = 1
End If
End Sub
Private Sub HScroll1_Scroll()
If HScroll1.Value = 1 Then
Command1.Left = 100
Command2.Left = 900
ElseIf HScroll1.Value = 2 Then
Command1.Left = 200
Command2.Left = 800
ElseIf HScroll1.Value = 3 Then
Command1.Left = 300
Command2.Left = 700
ElseIf HScroll1.Value = 4 Then
Command1.Left = 400
Command2.Left = 600
ElseIf HScroll1.Value = 5 Then
Command1.Left = 500
Command2.Left = 500
ElseIf HScroll1.Value = 6 Then
Command1.Left = 600
Command2.Left = 400
ElseIf HScroll1.Value = 7 Then
Command1.Left = 700
Command2.Left = 300
ElseIf HScroll1.Value = 8 Then
Command1.Left = 800
Command2.Left = 200
ElseIf HScroll1.Value = 9 Then
Command1.Left = 900
Command2.Left = 100
ElseIf HScroll1.Value = 10 Then
Command1.Left = 1000
Command2.Left = 1
End If
End Sub
lo mismo se puede hacer con un vscroll1
Bye