他アプリのリストビューから項目を得たいと思っています
試しにエクスプローラに対して行っています
韓国語などは表示できたのですが日本語が文字化けします

下記の処理らへんで何かしないといけないと思うのですが
sLVItem(i) = StrConv(lt.sItemText, vbFromUnicode)
誰かご教授お願いできませんでしょうか？

私の環境はVistaです。
よろしくお願い致します

> 私の環境はVistaです。
> よろしくお願い致します

　　これが正しいのかどうか・・・

Type LV_TEXT
    'sItemText As String * 80
    sItemText(240) As Byte
End Type

と修正して

          sLVItems(i) = StrConv(lt.sItemText, vbWide)

としました。

間違っていたら突っ込みよろしく！

※　VISTA Ultimate SP1 で確認しました。

以上。

全角処理は省きました。正常にできました！すばらしいです！
お返事ありがとうございました。