Hello Ivica Lopar,

Try this...


Code:
--------------------
Private Sub CommandButton1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim ImgPath


a = TextBox3.Text
b = TextBox2.Text
c = TextBox4.Text
d = TextBox5.Text
e = TextBox6.Text
list1.AddItem a & c & d & b & e
List2.AddItem c & d & b & e

'Get the last Image Path added to List1
ImgPath = list1.List(list1.Count - 1)
Image1.Picture = StdFunctions.LoadPicture(ImgPath)


TextBox2.Text = ""

TextBox2.SetFocus


End Sub

--------------------

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=484703