این کد را در ابتدای برنامه بنویس
Public Sub Farsi(ByVal cl As String)
Dim lang As System.Windows.Forms.InputLanguage
For Each lang In System.Windows.Forms.InputLanguage.InstalledInputL anguages
If (lang.Culture.TwoLetterISOLanguageName = cl) Then
System.Windows.Forms.Application.CurrentCulture = lang.Culture
System.Windows.Forms.Application.CurrentInputLangu age = lang
End If
Next
End Sub
سپس این کد را اضافه کن:
PrivateSub t7_GotFocus(ByVal sender AsObject, ByVal e As System.EventArgs) Handles t7.GotFocus
Farsi("fa")
Clipboard.Clear()
EndSub