hi,

now i get the message

type miss match
it is on the line with the **

Private Sub Command1_Click()
Dim intNumber As Integer
Randomize
intNumber = Int((6 * Rnd) + 1)

Select Case intNumber
Case 1
**Image1.Picture = "C:\My Documents\vb\Total Domination\dice 1.jpg "
Case 2
Image2.Picture = "C:\My Documents\vb\Total Domination\dice 2.jpg"
MsgBox ("2")
Case 3
Image3.Picture = "C:\My Documents\vb\Total Domination\dice 3.jpg"
MsgBox ("3")
Case 4
Image4.Picture = "C:\My Documents\vb\Total Domination\dice 4.jpg"
MsgBox ("4")
Case 5
Image5.Picture = "C:\My Documents\vb\Total Domination\dice 5.jpg"
MsgBox ("5")
Case 6
Image6.Picture = "C:\My Documents\vb\Total Domination\dice 6.jpg"
MsgBox ("6")
End Sub