关于选项组的联动显示

各位老师，通过

Private Sub Frame20_AfterUpdate()
Dim aa As Object
For i = 1 To Me.Frame20.Controls.Count / 2
    Set aa = Me.Frame20.Controls.Item(i * 2)
    If i = Me.Frame20 Then
        aa.ForeColor = 255
        Me.工作类型 = aa.Caption
    Else
        aa.ForeColor = 0
    End If
Next i
Set aa = Nothing
End Sub

可以实现，选中选项卡的某一项时，下面的列表框自动显示为相同项目，那么如何实现选中列表框的某一项目，然后选项组选中对应的项目啊？