Private Sub БросатьКости()
Dim Кость1 As Integer, Кость2 As Integer
Randomize
дальше не помню, но там про картинки, что то вроде этого ImgКость1.Picture = LoadPicture("2.bmp")
Написано
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.