Sheet Size

What am I missing. The program is stuck on "D Size" I have the others listed in the menu block.

Public Overrides Sub OnApply()

'InfoWindow.WriteLine(menuBlock.Items(menuBlock.Value) & ": " & menuBlock2.Items(menuBlock2.Value) & ": " & listBox.ListItems(listBox.SelectedItems(0)))

If menuBlock.SelectedItem ="D SIZE"

End If
Dim DsizeLocations() As Point3d = {
New Point3d(25.93, 1.81, 0),
New Point3d(25.93, 1.2, 0),
New Point3d(25.93, 0.58, 0)}

If menuBlock.SelectedItem ="C SIZE"

End If
Dim CsizeLocations() As Point3d = {
New Point3d(15.3125, 1.54, 0),
New Point3d(15.3125, 1.04, 0),
New Point3d(15.3125, 0.54, 0)}

If menuBlock.SelectedItem ="B SIZE"

End If

Dim BsizeLocations() As Point3d = {
New Point3d(10.3125, 1.54, 0),
New Point3d(10.3125, 1.04, 0),
New Point3d(10.3125, 0.54, 0)}

If menuBlock.SelectedItem ="E SIZE"

End If

Dim EsizeLocations() As Point3d = {
New Point3d(35.9375, 1.8, 0),
New Point3d(35.9375, 1.185, 0),
New Point3d(35.9375, 0.54, 0)}

If menuBlock.SelectedItem should be If menuBlock4.SelectedItem took me a little time but was all good. I overlooked the name of If menuBlock.SelectedItems. The original was deigned for d size only and since I added a menu block I had to Declare

What this is doing is sorting sheet size b, c, and e