08-24-2013، 10:03 PM
بفرمایید :
کد پیاچپی:
rivate Sub keyvan()
MsgBox "Halle dadash :d "
End Sub
Private Sub Text1_Change()
If InStr(1, Text1.Text, "keyvan") Then
Call keyvan
End If
End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg