***** 16-bit Örnek *****
Project’inize 1 adet commandbutton ekleyin ve aşağıdaki kodu yazınız:
Declare Function GetPrivateProfileString Lib "kernel" (ByVal lpApplicationName _
As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As integer, ByVal lpFileName As String) _
As integer
Declare Function WritePrivateProfileString Lib "kernel" (ByVal _
lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As _
String, ByVal lpFileName As String) As integer
Sub Command1_Click()
Dim sData As String
Dim iDataLen As integer
