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
(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
Display time on a label and move it around on your form Comments
No comments yet — be the first to post one!
Post a Comment