Random image help **code included**

i want to replicate a random dice roll by using a image of a dice appearing in a picture box. Can someone please modify my code so it can accomplish the desired action. Right now it just writes a random number, but i want it to show a image of a dice.

Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdStart_Click()
Dim randomvalue As Integer
randomvalue = CInt(Int((6 - 1 + 1) * Rnd() + 1))
picOutput1.Print ; randomvalue

End Sub

try..