Prova cosi' e mi fai sapere

codice:
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

Dim newPos As Point
Dim newposlbl As Point

'scroll variabile globale integer
scroll = Me.HScrollBar1.Value

'calcolo le nuove posizioni
newPos.X = posizione.X - scroll
newPos.Y = posizione.Y
newposlbl.X = posizione.X - scroll
newposlbl.Y = LabelUpEat.Location.Y

'sposto label e listview nella nuova posizione
Me.LabelUpEat.Location = newposlbl
Application.DoEvents()
Me.LstViewCalendar.Location = newPos
Application.DoEvents()
End If