>>674
OpenURLってのは細かい制御ができないかわりに楽なんだよね。
細かいことをしたいならば面倒でもExecuteでやらんと。
Content-Lengthとかのヘッダ取るだけならこんな感じかな。

Private Sub Command1_Click()
　　Inet1.Execute "http://アドレス", "GET"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
　　Select Case State
　　　　Case 12
　　　　　　Debug.Print "Content-Type = "; Inet1.GetHeader("Content-type")
　　　　　　Debug.Print "Content-Length = "; Inet1.GetHeader("Content-Length")
　　　　　　Debug.Print "Last-modified = "; Inet1.GetHeader("Last-modified")
　　　　　　Inet1.Cancel '受信もしたいならここでGetChunk繰り返せ
　　End Select
End Sub

ヘッダ全部が欲しいならWinsock使った方がいいかもな。