A part of WinInet.bas in Ariawase

PartOfWinINet.bas

#If VBA7 And Win64 Then
Private Sub SaveDownloading(ByVal hCnn As LongPtr, ByVal svPath As String)
#Else
Private Sub SaveDownloading(ByVal hCnn As Long, ByVal svPath As String)
#End If
    Dim strm As Object: Set strm = CreateAdoDbStream(adTypeBinary)
    strm.Open
    
    ' 中略
    
    strm.Close
End Sub