Hi all!

Thanks for coming to my rescue again.

I'm getting this error:

Cannot refer to an instance member of a class from within a shared method or shared member initializer without an explicit instance of the class.


Currently trying to code teh dreaded hwk question everyone is getting. Try to run my code:

Code:



[B]

    Public Shared Sub OnTimerEvent(ByVal [source] As Object, ByVal e As EventArgs)

        Dim i, j, l, k As Integer
        Do
            i = i + 1
            j = i + 1
            k = i + 1
            l = i + 1


            Select Case Val(i)

                Case 0

                    topPence.ForeColor = Color.Black
                    topleftPence.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black
                    bottomleftPence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black
                    bottomPence.ForeColor = Color.Black

                Case 1
                    toprightPence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black

                Case 2

                    topPence.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomleftPence.ForeColor = Color.Black
                    bottomPence.ForeColor = Color.Black


                Case 3

                    topPence.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black
                    bottomPence.ForeColor = Color.Black



                Case 4

                    topleftPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black

                Case 5
                    topPence.ForeColor = Color.Black
                    topleftPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black
                    bottomPence.ForeColor = Color.Black

                Case 6
                    topleftPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black
                    bottomPence.ForeColor = Color.Black
                    bottomleftPence.ForeColor = Color.Black


                Case 7
                    topPence.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black

                Case 8
                    topPence.ForeColor = Color.Black
                    topleftPence.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomleftPence.ForeColor = Color.Black
                    bottomPence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black

                Case 9

                    topPence.ForeColor = Color.Black
                    topleftPence.ForeColor = Color.Black
                    toprightPence.ForeColor = Color.Black
                    topmiddlePence.ForeColor = Color.Black
                    bottomPenceRight.ForeColor = Color.Black



            End Select

            Select Case Val(j)

                Case 0

                    topPence2.ForeColor = Color.Black
                    topleftPence2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black
                    bottomleftpence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black
                    bottomPence2.ForeColor = Color.Black

                Case 1
                    topRightPence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black

                Case 2

                    topPence2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomleftpence2.ForeColor = Color.Black
                    bottomPence2.ForeColor = Color.Black


                Case 3

                    topPence2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black
                    bottomPence2.ForeColor = Color.Black



                Case 4

                    topleftPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black

                Case 5
                    topPence2.ForeColor = Color.Black
                    topleftPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black
                    bottomPence2.ForeColor = Color.Black

                Case 6
                    topleftPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black
                    bottomPence2.ForeColor = Color.Black
                    bottomleftpence2.ForeColor = Color.Black


                Case 7
                    topPence2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black

                Case 8
                    topPence2.ForeColor = Color.Black
                    topleftPence2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomleftpence2.ForeColor = Color.Black
                    bottomPence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black

                Case 9

                    topPence2.ForeColor = Color.Black
                    topleftPence2.ForeColor = Color.Black
                    topRightPence2.ForeColor = Color.Black
                    topmiddlePence2.ForeColor = Color.Black
                    bottomPenceRight2.ForeColor = Color.Black



            End Select

            Select Case Val(k)

                Case 0

                    topPence3.ForeColor = Color.Black
                    topleftPence3.ForeColor = Color.Black
                    topRightPence3.ForeColor = Color.Black
                    bottomleftPence3.ForeColor = Color.Black
                    bottomPenceRight3.ForeColor = Color.Black
                    bottomPence3.ForeColor = Color.Black

                Case 1
                    topRightPence3.ForeColor = Color.Black
...... and thats where the error stops!

If you could help me please, Thanks again in advance

thrillseeker