vb de visual basic te form titretme kodu

im tt As Boolean
Dim sY As Integer
Private Sub Form_Load()
sY = 100
End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
Label1.Caption = sY
Label1.Refresh
End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End SubPrivate 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