Visual Basic - rellenar un shape "Rectangulo"

Hola a todos
alguien sabe como rellenar un rectangulo con lineas diagonales pero solo un un porcentaje 10%, 20% etc...

Hola.

Adentro del rectangulo poner un label, una constante que almacene el 10% del widht del rectangulo y esa constante sumarla al widht del label en cada ciclo hasta que sea igual al widht del rectangulo servira?

ej.

Private ancho_promedio As Long

Private Sub Command1_Click()
For i = 1 To 10
Label1.Width = Label1.Width + ancho_promedio
Next i
End Sub

Private Sub Form_Load()
Shape1.Top = 0
Shape1.Left = 0
Shape1.Width = 2000
Shape1.Height = 100
Label1.BackStyle = 1
Label1.BackColor = vbRed
Label1.Caption = ""
Label1.Top = 1
Label1.Left = 1
Label1.Height = 98
Label1.Width = 15 '<-- es lo minimo
ancho_promedio = Shape1.Width / 10
Shape1.Width = Shape1.Width + 16 '<-- recuperar 16 twips del label
Command1.Caption = "Llenar Shape"
End Sub

Saludos.