لیست باکس

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

کد:

---

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
    sabtekala.Show
End If
End Sub
-------------
Private Sub VSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 16 Then
  fkharid.Text8.Text = VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 2)
  fkharid.Text3.Text = VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 3)
 
    Unload Me
End If
End Sub

---

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

برای این سوال اولت یه مثال میزنم!!!
[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]

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