I'm not sure what you mean by label. This code looks like it is displaying a form containing picture on the screen and either moving the picture within that form or the entire form.
If it is a vba userform that you want to move across the screen, something like this works
Code:
#If VBA7 And Win64 Then ' For 64bit version of Excel
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)
#Else ' For 32bit version of Excel
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
#End If
Private Sub UserForm_Activate()
Dim iLastPos As Long, iMove As Long
With Me
iLastPos = Application.Left + Application.Width - .Width
iMove = 10
.Left = Application.Left
Do While .Left < iLastPos
Sleep 50
.Left = .Left + iMove
Loop
End With
Me.Hide
End Sub
Private Sub UserForm_Initialize()
With Me
.Top = Application.Top + 0.5 * (Application.Height - .Height)
End With
End Sub