Formunuzda Listbox1'in çift tıklama olayına
Kod:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
tb_SipNo.Value = ListBox1.List(ListBox1.ListIndex, 1)
cb_UrunKodu.Text = ListBox1.List(ListBox1.ListIndex, 3)
tb_UrunAdı.Text = ListBox1.List(ListBox1.ListIndex, 4)
tb_SiparisMiktarı.Value = ListBox1.List(ListBox1.ListIndex, 6)
End Sub