هل أستطيع أن أجعل الييبل يدور

أخى العزيز

على عجالة عدلت لك هذا الكود

الذى يفترض وجود أداة اختيار تشغل وتفصل حركة الهبوط

ولم استخدم أداة التايمر

ولكن وضعت الزمن من خلال الكود وحددته بعشر ثانية كفاصل زمنى للهبوط

أرجو أن يكون ما تريده أو قريب منه

Sub ScrollIt()
    Me.Label1.Top = 0
    Dim A As Long, B As Long, T As Long
    A = Me.ScaleHeight:     B = Label1.Height
    For T = 0 To A - B 'Step 20
     If Check1.Value = 1 Then
      Label1.Top = Label1.Top + T
            PauseTime = 0.1   ' Set duration.
            Start = Timer   ' Set start time.
            Do While Timer < Start + PauseTime
               DoEvents   ' Yield to other processes.
            Loop
            Finish = Timer   ' Set end time.
            TotalTime = Finish - Start   ' Calculate total time.
       If Me.Label1.Top - B > A Then Me.Label1.Top = 0
      End If
      DoEvents
    Next T
End Sub

Private Sub Check1_Click()
  ScrollIt
End Sub

شكرا لك

ولكن ماهذا ماأريد

اريد أجعل الليبل يدور ويلف ويرقص لو كان ممكن ويسبح داخل الفورم لو كان يقدر يعوم

شكرا لك عزيزي

مازلت أنتظر الطيبين ذوي الخبره

الاخ shreef5

ممكن تتطلع على هذه المشاركة

/index.ph...ndpost&p=270332

بالتوفيق

او حاول تجرب هدا الكود

Private strText As String
Private Sub Form_Load()
Timer1.Interval = 75
strText = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!"
strText = Space(50) & strText
End Sub
Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Text1.Text = strText
Me.Caption = strText
End Sub

اتمنى انه هدا آلي تبغى