مبدل كدپيج ايران سيستم به ويندوز و بالعكس

[M_Man_M]

با عرض سلام خدمت دوستان :
كد درخواست شده بصورت زير مي باشد :

Private Function ToWin(ByVal StringDos As String, ByVal BooleanSpaceAfterUperCase As Boolean) As String
Dim ClsD2W As New W2D_D2W.ClsDos2Win
ToWin = ClsD2W.Dos2Win_ReadFromTextInWin(StringDos, BooleanSpaceAfterUperCase)
End Function