لیست باکس

[Masoud.N50]

سلام
میخوام یکسری اطلاعات رو زمانی که مثلا توی فرم1 ذخیره میکنم همزمان داخل لیست باکس یک فرم دیگه (فرم2) وارد بشه و روی هر آیتم از لیست باکس که کلیک میشه اطلاعات همون آیتم رو وارد گرید بکنه
یک سوال دیگه هم داشتم
من توی KeyUp تکست باکس نوشتم که اگر F1 کلیک شد یک فرم دیگه رو باز کنه و از گرید فرم باز شده یک داده رو انتخاب میکنم و کلید shift رو که میزنم دوباره برمیگرده به همون فرم اول و یکسری از مشخصات گرید رو داخل تکست باکسهای مشخص شده وارد میکنه
با این کد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

مشکلم اینجاست که این کدها رو برای یک فرم دیگه هم میخوام استفاده کنم و با همون کلید شیف فرم جدید باز بشه، چیکار کنم که با همون دکمه shift فرم مورد نظر من باز بشه
ممنون میشم راهنمایی کنید

[s3t]

برای این سوال اولت یه مثال میزنم!!!
[QUOTEPrivate Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Form2.Text1.Text = "18"
ElseIf Combo1.ListIndex = 1 Then
Form2.Text1.Text = "19"
ElseIf Combo1.ListIndex = 20 Then
Form2.Text1.Text = "20"
End If
End Sub

Private Sub Command1_Click()
'(0= index)'
Combo1.AddItem 18, 0
Combo1.AddItem 19, 1
Combo1.AddItem 20, 2


End Sub][/QUOTE]

[Masoud.N50]

دوست عزیز یخورده این کد رو توضیح میدید؟