SORT

سلام

دستور نوشتن برنامه ای میخوام که:
مثل سورت اکسل اگه عددی انتخاب کردم تو چند تا TEXT BOX دیگه عددایی که نوشتم نمایش بده:

امیدوارم منظورتون برنامه ی پایین باشه که با انتخاب یک عدد در TextBox1 , عدد مورد نظر وارد تکست های دیگر میشود :

کد:

---

' متغییر عمومی
Dim PubNum As String

' بعد از انتخاب عدد توسط ماوس ، عدد در تکست باکس های دیگر نشان داده خواهد شد
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PubNum = Text1.SelText
Text2.Text = PubNum
Text3.Text = PubNum
End Sub

---