• Home
 · 
• Windows System Services
 · 
• Scroll a menu from inside a form.

Scroll a menu from inside a form.

Scroll a menu from inside a form.

Rate Scroll a menu from inside a form.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Create a form with a picture box
'draw a second picture inside the first one
'do not use the dblclick to paste the second picture
'create a timer, set  Interval : 1 
'                     Enabled  : Flase   
'Create 2 CommandButton

'Enjoy the Scrolling AMIGO

Sub SizePosition()
'setting the width of picture1 and picture2
Picture1.Width = 0
Picture2.Width = 2500

'setting the height of picture1 and picture2
Picture1.Height = 1800
Picture2.Height = 1800

'setting the top of picture2
Picture2.Top = 0

'setting the left of picture2 to minus it's width
Picture2.Left = -Picture2.Width

'setting the visibility of picture1 to false
Picture1.Visible = False

End Sub

Private Sub Command1_Click()
Picture1.Visible = True
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Call SizePosition
End Sub

Private Sub Form_Load()
'setting the default size and position of picture1
Call SizePosition
End Sub

Private Sub Timer1_Timer()
'scrolling the Menu
If Picture2.Left < -200 Then 'you can use a number <0 but > -500
    Picture1.Width = Picture1.Width + 500
    Picture2.Left = Picture2.Left + 500
Else
    Timer1.Enabled = False
End If
End Sub