Unable to draw over a drawing.

[Luis Niebla]

Something is going wrong, I have no idea what it is. I just simply want to draw over pacman so he can open and close his mouth, so there would be 5 pacman's, with different mouth positions.

(Note: The change of color was just to make sure I was seeing the results.)

 
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim fs As Graphics = Me.CreateGraphics
        Dim text As Integer = 1
 
        Dim redBrush As New SolidBrush(Color.Red)
        Dim back As New SolidBrush(Color.Black)
        Dim rect As New Rectangle(308, 526, 30, 30)
        Dim pacmen As New SolidBrush(Color.Yellow)
 
        Select Case text Mod 5
            Case 1
                fs.FillPie(redBrush, rect, 200, 320)
            Case 2
                fs.FillPie(redBrush, rect, 260, 380)
            Case 3
                fs.FillPie(pacmen, rect, 230, 310)
            Case 4
                fs.FillPie(redBrush, rect, 0, 360)
            Case 5
                fs.FillPie(pacmen, rect, 200, 320)
        End Select
        text += 1
    End Sub
 

Any help would be greatly appreciated.

timer2.start is done in a button and it plays the first case, but that's all.

[Over The]

Gah! I'm such an idiot!

It was just a simple matter of changing it into a static variable, I always forget that.

Sorry for wasting your time D:.