Snasui Excel Forum

Code: Select all

Private Sub Private Sub combobox_Change()
intColor = Int((16777215 - 0 + 1) * Rnd + 0)
Select Case combobox
    Case 0
    Imagel.Picture = LoadPicture("D:\New folder\RMBG-C1-0001.jpg")
    Case 1
    Imagel.Picture = LoadPicture("D:\New folder\RMBR-C1-0001.jpg")
    End Select
 End Sub
  

Code: Select all

Private Sub BorrowForm_Initialize()
combobox.AddItem "RMBG-C1-0001"       'ListIndex = 0
combobox.AddItem "RMBR-C1-0001"       'ListIndex = 1
combobox.Style = fmStyleDropDownLis
combobox.BoundColumn = 0
combobox.ListIndex = 0
Imagel.PictureSizeMode = fmPictureSizeModeStretch
End Sub