🚀 go-pugleaf

I've written (what should be) a fairly simple VB 6 application that will
simply display informational text on a form when run.  I've generated
different DLLs for each language that we support and at startup I check to
see which language is the system default and then display the text in that
language.  No fancy user input issues etc. This works great for all
languages except Japanese (and presumably Chinese when we get to supporting
it).

The resource DLLs were compiled by taking a simple .RC file (with just a few
dozen strings in it) and compiling it into a .RES file and then linking that
into a DLL.  No surprises there.  When I open the Japanese resource DLL
using C++ on the Japanese OS the strings in the resource table are displayed
perfectly.  When I run my VB app on that same system, the strings pulled
from the DLL are displayed as garbage.

I've scoured these news postings for a couple days and I thought I'd covered
all the basic rookie missteps here.  The fonts/character sets are all set
properly on the form.  I'm not trying to get fancy by displaying characters
that are not in my current code page, I'm not trying to display more than
one language at a time etc.  I can't figure out for the life of me what I'm
missing.

Here's the code in question. I would really appreciate any feedback from
folks on what I might be doing wrong here.

Dim lDLLHandle as long, hr as Long
Dim strBuffer as string, strFileName as string

strFileName = App.Path + "\resources\JPN\MyRes.dll"
strBuffer = String$(100, vbNullChar)

lDLLHandle = LoadLibraryExW(StrPtr(strFileName), 0&,
DONT_RESOLVE_DLL_REFERENCES Or LOAD_LIBRARY_AS_DATAFILE)

hr = LoadStringW(lDLLHandle, lStringID, StrPtr(strBuffer), Len(strBuffer))

'Setup font and character set of control to write the text to.  I've tried
removing this
'and manually setting the fonts on the form itself with the same results.
MyTextBox.Charset = SHIFTJIS_CHARSET
MyTextBox.Name = ChrW(&HFF2D) + ChrW(&HFF33) + ChrW(&H20) + ChrW(&HFF30) +
ChrW(&H30B4) + ChrW(&H30B7) + ChrW(&H30C3) + ChrW(&H30AF)
MyTextBox.Size = 8

'1041 is the Japanese language code...
MyTextBox.text=StrConv(strBuffer,vbUnicode,1041)

Do I need to use MultiByteToWideChar to convert the string?  It's my
understanding that the StrConv function will perform the same task.  Is
there something else fundamental that I'm missing here?

Thanks for any help

-Jeff
Lindborg@AnswerMonkey.net <mailto:Lindborg@AnswerMonkey.net>