کمک در نوشتن CapsLock Effext

[Snoopboy]

من خودم این برنامه Capslock رو نوشتم حالا می خوام قابلیت این رو قرار بدم در یک Option که وقتی کاربر انتخابش می کنه فقط حرف اول هر کلمه بزرگ بشه مثل Salam Khobi? بعد وقتی Option 2 رو انتخاب می کنیم برنامه به حالت اول برگرده و در هم ریخته حرفهارو کوچیک بزرگ کنه . ممنون میشم کمکم کنید. :قلب::قلب: سورس رو گذاشتم .

[Snoopboy]

کسی نیست همچین سورسی داشته باشه

[Tasiyan]

فقط حرف اول هر کلمه بزرگ بشه
Private Sub Command1_Click()
Text2 = ""
For i = 1 To Len(Text1)
T1 = Mid(Text1, 1, 1)
T2 = Mid(Text1, 2, Len(Text1))
T3 = UCase(T1)
Text2 = T3 + T2
Next
End Sub
خودت بنویس اگه کسی هم همچین سورسی داشته باشه واسه خودش مفیده نه شما :لبخند: