30/09/2010, 18:38
form başlığı kayan yazı şeklinde
Private Sub Form_Timer()
Me.Caption = Mid(Me.Caption, 1 + 1, Val(Len(Me.Caption) - 1)) & Mid(Me.Caption, 1, 1)
End Sub
Private Sub Form_Timer()
Me.Caption = Mid(Me.Caption, 1 + 1, Val(Len(Me.Caption) - 1)) & Mid(Me.Caption, 1, 1)
End Sub