Sub Pause(Wait)
Dim Current As Long
Current = Timer
Do Until Timer - Current >= Wait
DoEvents
Loop
End Sub

Вызывается как
Pause Секунды

Первый вариант: Файл загружается из папки с exe
1. Добавляем на форму обьект Image.
2. В свойствах Picture Выбираем файл картинки всех расширений кроме png.
Если нужна анимация, то рисуем дополнительную картинку.
Это картинка будет делать эффект нажатия. Рисуем картинку и вставляем код:
Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image.picture = "путь на картинку"
End Sub
Можно еще сделать эффект наведения:
Private Sub Image_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
image.picture = "путь на картинку"
End Sub

Второй способ, если файлы картинки находятся в файле ресурсов (res) файлы закидуются только в bmp
Открытие обычной кнопки
Private Sub Form_Load()
Image.Picture = loadrespicture(здесь номер картинки,0)
End Sub

Наведение:
Private Sub Image_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image.Picture = loadrespicture(здесь номер картинки,0)
End Sub

Нажатие:
Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image.Picture = loadrespicture(здесь номер картинки,0)
End Sub

Хотя я ее сам создал =)