dblclick sorunu

[bitmez13]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListCount < 1 Then Exit Sub
For i = 1 To 5
Controls("TextBox" & i).Value = ListBox1.Column(i - 1)
Next
TextBox1.Value = Format(TextBox1.Value)
TextBox2.Value = Format(TextBox2.Value)
TextBox3.Value = Format(TextBox3.Value)
Image1.Picture = LoadPicture(TextBox5.Text)
End Sub

çift tıklama ile textbox5 de (sayfanın d sütunundaki)resim yolunu gösterip image 1 de de textbox5 de kayıtlı resim yolu ile resimi göstermesini başaramadım

 

[Orion1]

Dosya yolu ve / veya dosya adı yanlıştır.