Programalama > VISUAL BASIC

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