[محمود اكرم]

السلام عليكم
أخ مبتدئ
الاخ حريف برمجة اعطى جزء الكتابة فقط ولم يعطي جزء النسخ واللصق
لذا هذا هو المشروع تفضل
النقل بين 2 textbox
وايضا هذا هو الكود

إقتباس :Public Class Form1
Dim x As Boolean
rivate Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.Control = True Then
If e.KeyValue = 86 Then
x = True
End If
End If
End Sub


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Len(TextBox1.Text) >= 11 Then
If x = True Then


xxx:
TextBox1.SelectionStart = 10
TextBox1.SelectionLength = Len(TextBox1.Text) - 10
TextBox1.Cut()
TextBox2.Paste()
Else
If Len(TextBox1.Text) = 11 Then
TextBox2.Focus()
Else
GoTo xxx
End If
End If
End If
x = False
End Sub


End Class

ارجو ان يكون هو المطلوب