En un formulario agregar:

un PictureBox y un CommandButton

poner en la propiedad drawmode del picturebox en 6 - invert


pegar el siguiente codigo en el formulario



Sub PerCnt(iNewValue As Integer)

If iNewValue > 100 Or iNewValue < 0 Then

Beep

Exit Sub

End If

Picture1.Cls

Picture1.FontSize = 12

Picture1.ScaleMode = 0

Picture1.ScaleWidth = 100

Picture1.ScaleHeight = 10

Picture1.CurrentY = 2

Picture1.CurrentX = Picture1.ScaleWidth / 2 - (Picture1.ScaleWidth / 15)

Picture1.Print Str(iNewValue) & "%"

Picture1.Line (0, 0)-(iNewValue, Picture1.ScaleHeight), Picture1.FillColor, BF

End Sub



Private Sub Command1_Click()



PerCnt CInt(70) ' Remplazar 70 por el porcentaje que se quiere mostrar

End Sub