Private Sub UserForm_Initialize()

ComboBox1.AddItem "Red"

ComboBox1.AddItem "Green"

ComboBox1.AddItem "Blue"

ComboBox1.AddItem "Clear Screen"

End Sub

Sub ComboBox1_Change()

Dim color As String

color = ComboBox1.Text

Select Case color

Case "Red"

Image1.Picture = LoadPicture("C:\vb\red.bmp")

Case "Green"

Image1.Picture = LoadPicture("C:\vb\green.bmp")

Case "Blue"

Image1.Picture = LoadPicture("C:\vb\blue.bmp")

Case "Clear Screen"

Image1.Picture = LoadPicture("C:\vb\white.bmp")

End Select

End Sub

Private Sub cmdExit_Click()

End

End Sub