Some thing like this should work. Perhaps in the ListBox2_AfterUpdate event.

Dim i as Long

Frame_Muscles.Visible = False
For i = 4 to 16
    If ListBox2.Selected(i) Then Frame_Musceles.Visible = True
Next i