TrackBar1 e yazılacak----------
dim X,Y as İnteger
'--Aşağı kaydırma için
dim X,Y as İnteger
Y= Y - TrackBar1.Value
X = Button1.Location.X
Button1.location=new point(X,Y)
'---Yukarı kaydırma için
dim X,Y as İnteger
Y= TrackBar1.Value
X = Button1.Location.X
Button1.location=new point(X,Y)
'--Mantığı böyle Saga ve Sola Siz yaparsınız artık