We can save the pics into the whole thing so it is easier.

If intdice = 1 Then
Me.Pbdice1.Image = My.Resources.d1
ElseIf intdice = 2 Then
Me.Pbdice1.Image = My.Resources.d2
ElseIf intdice = 3 Then
Me.Pbdice1.Image = My.Resources.d3
ElseIf intdice = 4 Then
Me.Pbdice1.Image = My.Resources.d4
ElseIf intdice = 5 Then
Me.Pbdice1.Image = My.Resources.d5
ElseIf intdice = 6 Then
Me.Pbdice1.Image = My.Resources.d6

You save it into my resources