[shady2020]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = TextBox2.Text

If TextBox1.TextLength = 0 Then
MsgBox("انسخ الرقم")
Else
Clipboard.SetText(TextBox2.Text)
End If
End Sub

---

هذا الكود تاع الزر محتاج اكمل الكود ليتم التنقل بين سطور القائمة
TextBox2
هذا الكود ينقل ما يوجد داخل التكست بوكس 2 ويعرضه داخل تكست1 ويتم نسخو من داخل تكست 1 ولكن يتم نسخ جميع محتويات التسكست محتاج ان يتم التنقل لسطر الثاني ويتم عرضو في تكست 1 ليتم نسخ من التكست 1Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = TextBox2.Text

If TextBox1.TextLength = 0 Then
MsgBox("انسخ الرقم")
Else
Clipboard.SetText(TextBox2.Text)
End If
End Sub