• Home
 · 
• Windows System Services
 · 
• Display time on a label and move it around on your form

Display time on a label and move it around on your form

Display time on a label and move it around on your form

Rate Display time on a label and move it around on your form

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

dim x,y as integer 
x=100
y=100
'put this code on timer1_time 
Label1.Caption = Format(Time, "hh:mm:ss ampm")
Label1.Move Label1.Left + X, Label1.Top + Y
If Label1.Left < ScaleLeft Then X = 100
If Label1.Left + Label1.Width > ScaleLeft + ScaleWidth Then
    X = -100
    End If
    If Label1.Top < ScaleTop Then Y = 100
    If Label1.Top + Label1.Height > ScaleTop + ScaleHeight Then
    Y = -100
    End If