Question

Dim energybar As New Rectangle(9, 154, energy, 21)

That is my new rectangle, now when I draw it

e.Graphics.FillRectangle(Brushes.Blue, energybar)

It says there is no width but the integer energy is = to 100…

now, how do I fix this? It but be somewhat simple…

Answer 1

Your code works. I put it in a Form_Paint event which resulted in the Image below. I would strongly suspect that your energy variable’s value is the problem. Make sure that if the variable is not declared in the Paint method that you make it a Class Scoped variable:

Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    Dim energy As Integer = 100
    Dim energybar As New Rectangle(9, 154, energy, 21)

    e.Graphics.FillRectangle(Brushes.Blue, energybar)

End Sub