'spin vbx kullanılmadan da spin kullanılabilir. Ben
'önceleri fazla yer işgal etmesin diye spin'i
'kullanmıyordum. Ama sonradan farkettiğim
'(örn.word)bir teknik var. Artık vbx'siz spin
'kullanıyorum. Hscroll ve Vscroll aletleri vb ile
'standart olarak yükleniyor. Bunları aradaki
'kaydırma düğmesi kayboluncaya kadar küçültün ve bir
'text kutusunun yanına koyun. Hscroll1'i çift tıklayıp
'Change olayına(event) şu kodları yazın
Sub HScroll1_Change ()
text1.Text = Hscroll1.Value
End Sub
'Hscroll1'in
'1. Min ve Max özelliklerini de değiştiriseniz
'istediğiniz değerler arasında değişim olur. Yalnız
'dikkat Max 2 byte uzunluğundadır. Yani sonsuz
'değildir.
'2. SmalChange özelliğini 1 den farklı verirseniz
'verdiğiniz sayıda artış veya azalış olur.
Eğer Vscroll yerleştirirseniz artırma ve azaltma ters
'olur. Buna çare de; örnek 1-100 arası sayı için: Vscroll
'un min değerine -100 , max değerine -1 yazın.
'Change olayına da aşağıdakini yazın
text1.Text = Abs(Vscroll1.Value)