Sub DumpHprofData(aDir As String, aFilename As String)
If aDir = Null OR aDir = "" Then ThrowException("Parameter [aDir] must not be Null or empty").Throw
If aFilename = Null OR aFilename = "" Then ThrowException("Parameter [aFilename] must not be Null or empty").Throw
Dim aPath As String = File.Combine(aDir, aFilename)
Dim r As Reflector
r.RunStaticMethod( _
"android.os.Debug", _
"dumpHprofData", _
Array As Object(aPath), _
Array As String("[Ljava.lang.String;"))
End Sub