[™ like VB ™]

تم ايجاد الحل بعد مرتين فشل من اخر كود هذا هو الحل للافاده

كود :

Private Sub ****Box1_KeyDown(ByVal sender As Object, ByVal e As System.******s.Forms.KeyEventArgs) Handles ****Box1.KeyDown

        If e.KeyCode = Keys.ControlKey Then
            ****Box1.**** &= "vb4arb"
        End If
    End Sub