Titreyen form

Dim tt As Boolean
Dim sY As Integer

Private Sub Form_Load()
sY = 40
'tt = False
End Sub

Private Sub HScroll1_Change()
sY = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
If tt = True Then
Me.Top = Me.Top + sY
Me.Left = Me.Left + sY
tt = False
Else
Me.Top = Me.Top - sY
Me.Left = Me.Left - sY
tt = True
End If
End Sub