Hola gente Buenas noches

Bueno estoy haciendo un pequeño proyecto en Visual Basic para Aplicaciones

quiero crear un algoritmo para... Bueno mejor les muestro que rayos quiero hacer ajajajajaj...
Pido disculpas por no cambar la imagen por la actualizada pero pronto la subo

lo que tengo de codigo es: (ya resuelto)
Explicación

Private Sub Cargar_datos_Click()
valgrafic
End Sub
Sub ValorGraf()
Dim r, Ls, Li, Xdato, Dtop As Double
' con esta condicion se asegura que solo una ves se guarde este valor
'(el valor top inicial de las graf)
 
If Dtop = "" Then
   Dtop = graf1.Top
End If
'dado que la cuadricula de los formularios es inversa se toma el top
'del lab mas arriba (posicion en el form) como el liminite inferior
Ls = lab_9.Top
Li = lab_10.Top
r = Ls - Li
' restamos al valor (Top) inicial de las graficas el producto del tex_# y r
graf1.Top = Dtop - Val(txt_1 * r)
graf2.Top = Dtop - Val(txt_2 * r)
graf3.Top = Dtop - Val(txt_3 * r)
graf4.Top = Dtop - Val(txt_4 * r)
graf5.Top = Dtop - Val(txt_5 * r)
End Sub
 

una duda la propiedad label.top marca el centro de el objeto?
Me auto contesto es la parte superior del label  

Espero sirva es una chorrada lo se pero a alguien como yo seguro le servira
Gracias por leer