Private Sub UserForm_Initialize()

ListBox1.AddItem "Red"

ListBox1.AddItem "Green"

ListBox1.AddItem "Blue"

ListBox1.AddItem "Clear Screen"

End Sub

Private Sub ListBox1_Click()

Dim color As String

color = ListBox1.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