If Not IsPicture(URL) Then
If Not IsPicture(URL, Flags, TargetFrameName, PostData, Headers) Then
Public Function IsPicture(ByVal URL As Variant, ByVal Flags As Variant, ByVal TargetFrameName As Variant, ByVal PostData As Variant, ByVal Headers As Variant) As Boolean
'ByVal と ByRef の動作の違いについて Option Explicit Sub Test1(ByRef x As String) x = "123" End Sub Sub Test2(ByVal y As String) y = "123" End Sub Private Sub Command1_Click() Dim v1 As Variant, v2 As Variant Dim s1 As String, s2 As String 'Test1 v1 'コンパイルエラー[ByRef 引数の型が一致しません。] 'Debug.Print "v1="; v1 Test2 v2 Debug.Print "v2=["; v2; "]" 'ByVal の時は、引数が書き変わらない事が保証される。 Test1 s1 Debug.Print "s1=["; s1; "]" 'ByRef だと、プロシージャによって値が書き換えられる。 Test2 s2 Debug.Print "s2=["; s2; "]" 'ByVal の時は、引数が書き変わらない事が保証される。 End Sub