Function MdbSetGridCccc(hDb,szCccc)
!dec$attributes stdcall, alias: ’_MdbSetGridCccc@ 8 ’ ::MdbSetGridCccc
!dec$attributes reference :: szCccc
CHARACTER* 5  szCccc
INTEGET* 4  hDB [VALUE]
End

BOOL WINAPI MdbSetGridCccc(Handle h, LPSTR cccc)]

szCccc=’EGRR’
MdbSetGridCccc(hDB, szCccc)

Private Declare Function MdbSetGridCccc Lib “windbr32” _
(ByVal HANDLE as Long, ByVal szCccc as Long) As Boolean
       
Private Function BSTRtoLPSTR(sBSTR As String, b() As Byte, lpsz As Long) As Long
Dim cBytes As Long
Dim sABSTR As String

cBytes = LenB(sBSTR)
ReDim b( 1  To cBytes +  2 ) As Byte
sABSTR = StrConv(sBSTR, vbFromUnicode)
lpsz = StrPtr(sABSTR)

CopyMemory b( 1 ), ByVal lpsz, cBytes +  2 
lpsz = VarPtr(b( 1 ))
BSTRtoLPSTR = cBytes

End Function

…..
Dim bStr as String
Dim cnt as Long

bStr = "E" & vbNullChar & "G" & vbNullChar & "R" & vbNullChar & "R"
cnt = BSTRtoLPSTR(bStr, bArr, lpsz)        

c1= MdbSetGridCccc(hDB, lpsz)