Titreyen Form Yapmak
Gerekenler:1 adet timer,1 adet HScroll
*************************
Dim tt As Boolean
Dim sY As Integer
Private Sub Form_Load()
Timer1.Interval = 10
HScroll1.Max = 500
sY = 100
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
************************* |
