وضع رقم تنازلي على الفورم

:D

باين عليك كده عاوز تعمل splash screen انا عملتهالك علي فورم عادية لأن انا مش عارف انت عاوز تعمل ايه بالضبط بس الاحسن تعملها علي هيئة splash screen

العداد التنازلي.zip

شكرا على الاستجابه السريعه

---كمان عندي سؤال لو سمحت كيف اجعل اسمي عندي تشغيل الفورم

يكتب على الفورم حرف تلو الآخر حتى الانتهاء من الاسم كامل

وشكرا

'Start new project
'Place a timer
Dim Tit As String  'Public variable

Sub ScrolTit()
  Tit = String(30, " ") & "I'm moving..." 'Set blank up to 30 chararcters long]
  'You can insert date and time fucntion here
  'Tit  =String(30, " "), & "The time is : " & Time
  'Tit = String(30, " "), & "Today's date : " & Date
End Sub

Public Sub Form_Load()
  Timer1.Interval = 200 'set scrolling speed
  ScrolTit 'Start scrolling form caption
End Sub

Public Sub Timer1_Timer()
  Tit = Mid(Tit, 2) & Left(Tit, 1)
  Me.Caption = Tit
End Sub

يا عم انت تأمر

:D

Private Sub Form_Load()
Me.RightToLeft = True
lblname.AutoSize = True
lblname.BackStyle = 0
lblname.ForeColor = vbRed
lblname.FontSize = 18
lblname.FontBold = True
lblname.Alignment = vbCenter
' to center label in the form
lblname.Left = (Me.Width - lblname.Width) / 2
lblname.Top = (Me.Height - lblname.Height) / 2
End Sub



Private Sub Timer1_Timer()
     Dim no As Integer
       Dim DEVELOPER As String
       DEVELOPER = "DATA BASE DEVELOPER"
       no = Len(DEVELOPER)
       Static counter As Integer
       counter = counter + 1
    If counter > no Then
    Exit Sub
   Timer1.Enabled = False
Else
   'if you want to read string from left
    lblname.Caption = Left(DEVELOPER, counter)
    Me.Caption = Left("data base developer", counter)
   ' if you want it to start reading from right use the right function
   ' if you want to read a specific part of the string
   ' use the next function
   ' your_string_variable = mid(string expression, m, n)
   ' m = the start point
   ' n = the length of the wanted string variable
   ' good luck
   ' ahmed shalaby
    End If
    
End Sub

كتابة الاسم تتابعيا.zip

الله يستر عليك دنيا وآخره يارب