I have the same issue to resolve. Here is relevant code that requires modification:
lngResult = CoCreateGuid(udtGUID) ' Create a 'raw' GUID
If lngResult = GUID_OK Then
strFormattedGUID = New String(Chr(0), GUID_LENGTH + 1)
' Convert the 'raw' GUID to a formatted string
'UPGRADE_ISSUE: StrPtr function is not supported. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1040"'
StringFromGUID2(udtGUID, StrPtr(strFormattedGUID), GUID_LENGTH + 1)
Else ' Either return nothing or find some way to handle the error
strFormattedGUID = Right(Space(GUID_LENGTH) & VB6.Format(Now, "yyyymmddhhnn") & VB6.Format(GetTickCount(), "000000000000"), GUID_LENGTH)
End If
CreateGUIDKey = Left(Trim(strFormattedGUID) & Space(GUID_LENGTH), GUID_LENGTH)
Brenton
From
http://www.developmentnow.com/g/38_2...or-StrPtr-.htm
Posted via DevelopmentNow.com Groups
http://www.developmentnow.com