vb怎么动态加载dll文件，并且调用其中的函数

Question

如题所述

Answer 1

Private Sub Form_Click()
    Dim a(3) As Integer
    Dim m As Boolean
    m = True
    For i = 0 To 3
        a(i) = 1
    Next i
    For i = 0 To UBound(a)
        If a(i) <> 1 Then
            m = False
            Exit For
        End If
    Next i
    If m = True Then
        Print "全部符合"
    Else
        Print "不全部符合"
    End If
End Sub