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?