Public Sub SaikoroDraw(ByVal deme As Integer, ByVal x As Integer, ByVal g As Graphics)



        Select Case deme

            Case 1

                SaikoroDraw1(x, g)

            Case 2

                SaikoroDraw2(x, g)

            Case 3

                SaikoroDraw3(x, g)

            Case 4

                SaikoroDraw4(x, g)

            Case 5

                SaikoroDraw5(x, g)

            Case 6

                SaikoroDraw6(x, g)

        End Select



    End Sub



    Private Sub SaikoroDraw1(ByVal x As Integer, ByVal g As Graphics)



        g.DrawRectangle(Pens.Black, 0 + x * 80, 0, 60, 60)

        g.FillRectangle(Brushes.White, 1 + x * 80, 1, 58, 58)

        g.DrawEllipse(Pens.Black, 25 + x * 80, 25, 10, 10)

        g.FillEllipse(Brushes.Red, 25 + x * 80, 25, 10, 10)

    End Sub



    Private Sub SaikoroDraw2(ByVal x As Integer, ByVal g As Graphics)



        g.DrawRectangle(Pens.Black, 0 + x * 80, 0, 60, 60)

        g.FillRectangle(Brushes.White, 1 + x * 80, 1, 58, 58)

        g.FillEllipse(Brushes.Black, 12 + x * 80, 12, 10, 10)

        g.FillEllipse(Brushes.Black, 38 + x * 80, 38, 10, 10)



    End Sub



    Private Sub SaikoroDraw3(ByVal x As Integer, ByVal g As Graphics)



        SaikoroDraw2(x, g)

        g.FillEllipse(Brushes.Black, 25 + x * 80, 25, 10, 10)

    End Sub



    Private Sub SaikoroDraw4(ByVal x As Integer, ByVal g As Graphics)



        SaikoroDraw2(x, g)

        g.FillEllipse(Brushes.Black, 38 + x * 80, 12, 10, 10)

        g.FillEllipse(Brushes.Black, 12 + x * 80, 38, 10, 10)



    End Sub

    Private Sub SaikoroDraw5(ByVal x As Integer, ByVal g As Graphics)



        SaikoroDraw4(x, g)

        g.FillEllipse(Brushes.Red, 25 + x * 80, 25, 10, 10)

    End Sub



    Private Sub SaikoroDraw6(ByVal x As Integer, ByVal g As Graphics)



        SaikoroDraw4(x, g)

        g.FillEllipse(Brushes.Black, 12 + x * 80, 25, 10, 10)

        g.FillEllipse(Brushes.Black, 38 + x * 80, 25, 10, 10)



    End Sub

End Class