Programalama > VISUAL BASIC

.bas dosyaya :
Declare Function OemToAnsi Lib_
 "Keyboard" (ByVal lpOemStr As String,_
 ByVal lpAnsiStr As String) As Integer 'tek satır
'-----
Function ANSIye (ByVal metin$) As String
Dim gM$, x%
gM$ = metin$ + " "
x% = OemToAnsi(metin$, gM$)
ANSIye = gM$
End Function
' ekleyin
Fonksiyonun kullanımı :
x$=ANSIye(text1.text)