開発環境
VB6.0
windows XP sp3

以前、掲示板に記載してあった下記方法で
保存したHTMLファイルのHTMLコードの内容をリッチテキストボックスに
表示させたいのですが、日本語部分が文字化けしてしまって困っています。
どなたか解決策を教えて下さい。
よろしくお願いします。

Option Explicit　　 'SampleNo=169　WindowsXP VB6.0(SP5) 2002.07.19

Private Declare Function URLDownloadToFile Lib "urlmon" _
　　Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
　　ByVal szURL As String, ByVal szFileName As String, _
　　ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
　　Dim SaveFileName As String
　　Dim DownloadFile As String
　　Dim Ret　　　　　As Long

　　SaveFileName = "C:\Test.htm"
　　DownloadFile = "http://www.msn.co.jp/home.htm"

　　Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)
　　DoEvents

　　If Ret = 0 Then
　　　　MsgBox "ダウンロードできました。"
　　Else
　　　　MsgBox "エラーが発生しました。"
　　End If
End Sub

> 以前、掲示板に記載してあった下記方法で
> 保存したHTMLファイルのHTMLコードの内容をリッチテキストボックスに
> 表示させたいのですが、日本語部分が文字化けしてしまって困っています。
> どなたか解決策を教えて下さい。

上記の質問とその下に投稿されたコード(ここに掲載していたサンプルのですが)とどのような
関係があるのでしょうか？
文字化けするのが私のコードのせいとか。

文字化けがするならなにをどのようにしてどのようなコードを書いているのかを説明すべきでは。

そもそも何の為にどのような事をしようとしているかも分かりません。
ダウンロードした HTML ファイルをそのまま読み込んでリッチテキストボックスに表示させようと
しているのなら理由次第では...。少なくても私ならそのような事はしません。

Word に読み込んで表示して見て下さい。

> 上記の質問とその下に投稿されたコード(ここに掲載していたサンプルのですが)とどのような
> 関係があるのでしょうか？
> 文字化けするのが私のコードのせいとか。

いえいえまったく関係ございませんm(_ _)m
誤解を招いてしまって申し訳ありません。

HTMLの文字コードがUTF8だったので、文字コードを変換しないと
表示できないだけでした。

大変失礼いたしました。