[محمد]

سعود كتب :اذا نعم خذ المثال البسيط
ضمن منطقة التصريحات العامة اكتب:

كود :

Dim wd As String = "بسم الله: "

ضمن حدث LostFocus لمربع النص اكتب

كود :

TextBox1.Text = wd & TextBox1.Text

وضمن حدث النقر لزر امر اكتب

كود :

MsgBox(TextBox1.Text)

اخى عند اضافت الاكواد المشروع لا يفتح