Statuss
Bilgiliyim
Kod:
Private Sub Form_Load()
Shape1.BorderStyle = 1
Shape1.BorderWidth = 5 'çizgi kalınlığı 5
Timer1.Interval = 1000
VScroll1.Min = 0
VScroll1.Max = 5
End Sub
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value + 1
'tüm şekiller gösterldi ise baştan itibaren devam et
If VScroll1.Value >= 5 Then VScroll1.Value = 0
End Sub
Private Sub VScroll1_Change()
Shape1.Shape = VScroll1.Value
End Sub
Private Sub Form_Load()
Shape1.BorderStyle = 1
Shape1.BorderWidth = 5 'çizgi kalınlığı 5
Timer1.Interval = 1000
VScroll1.Min = 0
VScroll1.Max = 5
End Sub
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value + 1
'tüm şekiller gösterldi ise baştan itibaren devam et
If VScroll1.Value >= 5 Then VScroll1.Value = 0
End Sub
Private Sub VScroll1_Change()
Shape1.Shape = VScroll1.Value
End Sub
Kolaygelsin