درخواست سورس برنامه Chat Text Effect

[mr.jakob]

سلام دوستان ... درخواسته سورس یه برنامه رو دارم که بعد از زده شدن space و یا enter، دکمه caps lock، روشن شه و بلافاصله با زده شدن هر دکمه دیگری caps lock خاموش شه ... منظورم اینه که حرف اول کلمات لاتین به بزرگی نوشته بشه!

مثلا :

Salam Doostan... Darkhaste Source Ye Barnamaro Daram Ke ...

کسی میتونه کمکم کنه؟؟؟؟؟ خیلی لــــــازم دارم! مرسی

[arenaw]

سلام
این رو امتحان کن :

Private Sub Text1_Change()
Dim a$(), b$(), i&, j&, t%
t = Text1.SelStart
a = Split(Text1, Chr(13) & Chr(10))
For i = LBound(a) To UBound(a)
b = Split(a(i), " ")
For j = LBound(b) To UBound(b)
If Not Mid(b(j), 1, 1) = "" Then Mid(b(j), 1, 1) = UCase(Mid(b(j), 1, 1))
Next
a(i) = Join(b, " ")
Next
Text1 = Join(a, Chr(13) & Chr(10))
Text1.SelStart = t
End Sub

[Veteran]

http://barnamenevis.org/showthread.php?312680-%D8%A8%D8%B2%D8%B1%DA%AF-%D9%86%D9%88%D8%B4%D8%AA%D9%86-%D8%AD%D8%B1%D9%88%D9%81-%D8%A7%D9%88%D9%84-%DA%A9%D9%84%D9%85%D8%A7%D8%AA/page2