VB中用API判断数组为空或没有初始化

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long   'API判断数组为空或没有初始化
 Private Sub Command1_Click()
Dim tmp() As String
If SafeArrayGetDim(tmp) = 0 Then
MsgBox "数组为空或没有初始化"
End If
End Sub

源自

:http://blog.sina.com.cn/u/54f185770100082a