ちょっと書いてみろという事なので抜粋
Public Class 本体
    Public il非対称 As New List(Of Image)
    Public il対称 As New List(Of Image)
省略

 Private Sub 本体_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        il非対称.Clear()
        il非対称.Add(My.Resources._1)
        il非対称.Add(My.Resources._2)
        il非対称.Add(My.Resources._3)
        il非対称.Add(My.Resources._4)
        il対称.Clear()
        il対称.Add(My.Resources._5)
        il対称.Add(My.Resources._6)
        il対称.Add(My.Resources._7)
        il対称.Add(My.Resources._8)
省略

    Private Sub b図形回転_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles b図形回転.Click
        Static index As Integer
        index = index + 1
        If Me.cb対称型.Enabled = True Then
            If Me.cb対称型.Checked = False Then
                If index > Me.il非対称.Count - 1 Then index = 0
                Me.pb図形.Image = Me.il非対称(index)
            Else
                If index > Me.il対称.Count - 1 Then index = 0
                Me.pb図形.Image = Me.il対称(index)
            End If
        Else
            If index > Me.il非対称.Count - 1 Then index = 0
            Me.pb図形.Image = Me.il非対称(index)
        End If
    End Sub

    Private Sub cb対称型_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb対称型.CheckedChanged
        If Me.cb対称型.Enabled = True Then
            If Me.cb対称型.Checked = False Then
                Me.pb図形.Image = Me.il非対称(0)
                単品図.pb図形.Image = Me.il非対称(0)
                本体端部.pb図形.Image = 本体端部.il非対称.Images(0)
            Else
                Me.pb図形.Image = Me.il対称(0)
                単品図.pb図形.Image = Me.il対称(0)
                本体端部.pb図形.Image = 本体端部.il対称.Images(0)
            End If
        Else
            単品図.pb図形.Image = Me.il非対称(0)
            本体端部.pb図形.Image = 本体端部.il非対称.Images(0)
        End If
    End Sub

こんな感じです。