Программное создание объекта "Image" - VB

Формулировка задачи:

Не работает т.к. я не знаю как указать путь к картинке.

Option Explicit
Dim bonus As TextBox
 
Private Sub Command3_Click()
Set bonus = Me.Controls.Add("VB.Image", "Image1", Me)
bonus.Visible = (True) 'Г„ГҐГ«Г*ГҐГ¬ Г®ГЎГєГҐГЄГІ ГўГЁГ¤ГЁГ¬Г»Г¬
Call bonus.Move(100, 100, 5000, 285) 'Г“ГЄГ*Г§Г»ГўГ*ГҐГ¬ ГЇГ®Г§ГЁГ¶ГЁГЁ
End Sub

Решение задачи: «Программное создание объекта "Image"»

textual
                            Листинг программы 
                        

                            Dim aPath As String, sImgName As String
  aPath = App.Path: If Right$(aPath, 1) <> "\" Then aPath = aPath & "\"
  sImgName = aPath & <имя файла>
  bonus.Picture = LoadPicture(sImgName)
                        