How to get a progress bar like in this picture in vb.net? Please help

[Joacim Andersson]

@Niya: I think you mixed up the argument order for the bottomBrush:

'Original code
    Dim topBrush As New System.Drawing.Drawing2D.LinearGradientBrush(topRect, topColor, middleColor, 90)
    Dim bottomBrush As New System.Drawing.Drawing2D.LinearGradientBrush(bottomRect, color, middleColor, 90)

Shouldn't it be:

    Dim topBrush As New System.Drawing.Drawing2D.LinearGradientBrush(topRect, topColor, middleColor, 90)
    Dim bottomBrush As New System.Drawing.Drawing2D.LinearGradientBrush(bottomRect, middleColor, color, 90)

So you get a smooth transition all the way down instead of that very sharp line in the middle?