[RaggiTech]

اليك هذا الكود اخي

كود :

Public Class Form1

    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.******s.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.ControlKey Then

            If InStr(TextBox1.Text, "vb4arb") Then
                MsgBox("الكلمة موجودة من قبل .", MsgBoxStyle.OkOnly, "رسالة تنبية")
            Else
                TextBox1.Text &= "vb4arb"
            End If

        End If
    End Sub

End Class