Hey guys, this isn't a real bug, but its been bothering me.

I need a way to shorten this case method:

vb Code:
  1. Select Case bgcolorVar

  2.                     Case "red"

  3.                         MyScripts.BackgroundImage = My.Resources.red

  4.                         offlineAdd.BackgroundImage = My.Resources.red

  5.                         Info.BackgroundImage = My.Resources.red

  6.                         main.BackgroundImage = My.Resources.red

  7.                         AboutBox.BackgroundImage = My.Resources.red

  8.                         Add.BackgroundImage = My.Resources.red

  9.                         bug_report.BackgroundImage = My.Resources.red

  10.                         BugWindow.BackgroundImage = My.Resources.red

  11.                         Credits.BackgroundImage = My.Resources.red

  12.                         settings.BackgroundImage = My.Resources.red

  13.                         Splash.BackgroundImage = My.Resources.red

  14.                         Updates.BackgroundImage = My.Resources.red

  15.                     Case "orange"

  16.                         MyScripts.BackgroundImage = My.Resources.orange

  17.                         offlineAdd.BackgroundImage = My.Resources.orange

  18.                         Info.BackgroundImage = My.Resources.orange

  19.                         main.BackgroundImage = My.Resources.orange

  20.                         AboutBox.BackgroundImage = My.Resources.orange

  21.                         Add.BackgroundImage = My.Resources.orange

  22.                         bug_report.BackgroundImage = My.Resources.orange

  23.                         BugWindow.BackgroundImage = My.Resources.orange

  24.                         Credits.BackgroundImage = My.Resources.orange

  25.                         settings.BackgroundImage = My.Resources.orange

  26.                         Splash.BackgroundImage = My.Resources.orange

  27.                         Updates.BackgroundImage = My.Resources.orange

  28.                     Case "green"

  29.                         MyScripts.BackgroundImage = My.Resources.green

  30.                         offlineAdd.BackgroundImage = My.Resources.green

  31.                         Info.BackgroundImage = My.Resources.green

  32.                         main.BackgroundImage = My.Resources.green

  33.                         AboutBox.BackgroundImage = My.Resources.green

  34.                         Add.BackgroundImage = My.Resources.green

  35.                         bug_report.BackgroundImage = My.Resources.green

  36.                         BugWindow.BackgroundImage = My.Resources.green

  37.                         Credits.BackgroundImage = My.Resources.green

  38.                         settings.BackgroundImage = My.Resources.green

  39.                         Splash.BackgroundImage = My.Resources.green

  40.                         Updates.BackgroundImage = My.Resources.green

  41.                     Case "blue"

  42.                         MyScripts.BackgroundImage = My.Resources.blue

  43.                         offlineAdd.BackgroundImage = My.Resources.blue

  44.                         Info.BackgroundImage = My.Resources.blue

  45.                         main.BackgroundImage = My.Resources.blue

  46.                         AboutBox.BackgroundImage = My.Resources.blue

  47.                         Add.BackgroundImage = My.Resources.blue

  48.                         bug_report.BackgroundImage = My.Resources.blue

  49.                         BugWindow.BackgroundImage = My.Resources.blue

  50.                         Credits.BackgroundImage = My.Resources.blue

  51.                         settings.BackgroundImage = My.Resources.blue

  52.                         Splash.BackgroundImage = My.Resources.blue

  53.                         Updates.BackgroundImage = My.Resources.blue

  54.                     Case "violet"

  55.                         MyScripts.BackgroundImage = My.Resources.purple

  56.                         offlineAdd.BackgroundImage = My.Resources.purple

  57.                         Info.BackgroundImage = My.Resources.purple

  58.                         main.BackgroundImage = My.Resources.purple

  59.                         AboutBox.BackgroundImage = My.Resources.purple

  60.                         Add.BackgroundImage = My.Resources.purple

  61.                         bug_report.BackgroundImage = My.Resources.purple

  62.                         BugWindow.BackgroundImage = My.Resources.purple

  63.                         Credits.BackgroundImage = My.Resources.purple

  64.                         settings.BackgroundImage = My.Resources.purple

  65.                         Splash.BackgroundImage = My.Resources.purple

  66.                         Updates.BackgroundImage = My.Resources.purple

  67.                     Case "default"

  68.                         MyScripts.BackgroundImage = My.Resources._default

  69.                         offlineAdd.BackgroundImage = My.Resources._default

  70.                         Info.BackgroundImage = My.Resources._default

  71.                         main.BackgroundImage = My.Resources._default

  72.                         AboutBox.BackgroundImage = My.Resources._default

  73.                         Add.BackgroundImage = My.Resources._default

  74.                         bug_report.BackgroundImage = My.Resources._default

  75.                         BugWindow.BackgroundImage = My.Resources._default

  76.                         Credits.BackgroundImage = My.Resources._default

  77.                         settings.BackgroundImage = My.Resources._default

  78.                         Splash.BackgroundImage = My.Resources._default

  79.                         Updates.BackgroundImage = My.Resources._default

  80.                 End Select

Any way I can do this?