public void GetInfo_AreaLoad(AreaLoad areaLoad)
{
    string message = "AreaLoad Force : ";
    // Get areaload force1 position
    message += "\nAreaLoad Force1 position :(" + areaLoad.Force1.X + ", "
        + areaLoad.Force1.Y + ", " + areaLoad.Force1.Z + ")";
    // Get areaload force2 position
    message += "\nAreaLoad Force2 position :(" + areaLoad.Force2.X + ", "
        + areaLoad.Force2.Y + ", " + areaLoad.Force2.Z + ")";
    // Get areaload force3 position
    message += "\nAreaLoad Force3 position :(" + areaLoad.Force3.X + ", "
        + areaLoad.Force3.Y + ", " + areaLoad.Force3.Z + ")";

    // Get loop number
    message += "\nLoop number is :" + areaLoad.NumLoops;
    for (int i = 0; i < areaLoad.NumLoops; i++)
    {
        // Get curve number
        message += "\nCurve number is : " + areaLoad.get_NumCurves(i);
        for (int j = 0; j < areaLoad.get_NumCurves(i); j++)
        {
            Autodesk.Revit.DB.Curve curve = areaLoad.get_Curve(i, j);
            // Get curve start point
            message += "\nCurve start point:(" + curve.GetEndPoint(0).X + ", "
                + curve.GetEndPoint(0).Y + ", " + curve.GetEndPoint(0).Z + ")";
            // Get curve end point
            message += "; Curve end point:(" + curve.GetEndPoint(1).X + ", "
                + curve.GetEndPoint(1).Y + ", " + curve.GetEndPoint(1).Z + ")";
        }
    }

    // Get ref points information
    for (int k = 0; k < areaLoad.NumRefPoints; k++)
    {
        // Get areaload Ref point
        message += "\nAreaLoad Ref point :(" + areaLoad.get_RefPoint(k).X + ", "
            + areaLoad.get_RefPoint(k).Y + ", " + areaLoad.get_RefPoint(k).Z + ")";
    }
    TaskDialog.Show("Revit",message);
}

Public Sub GetInfo_AreaLoad(areaLoad As AreaLoad)
    Dim message As String = "AreaLoad Force : "
    ' Get areaload force1 position
    message += vbLf & "AreaLoad Force1 position :(" & Convert.ToString(areaLoad.Force1.X) & ", " & Convert.ToString(areaLoad.Force1.Y) & ", " & Convert.ToString(areaLoad.Force1.Z) & ")"
    ' Get areaload force2 position
    message += vbLf & "AreaLoad Force2 position :(" & Convert.ToString(areaLoad.Force2.X) & ", " & Convert.ToString(areaLoad.Force2.Y) & ", " & Convert.ToString(areaLoad.Force2.Z) & ")"
    ' Get areaload force3 position
    message += vbLf & "AreaLoad Force3 position :(" & Convert.ToString(areaLoad.Force3.X) & ", " & Convert.ToString(areaLoad.Force3.Y) & ", " & Convert.ToString(areaLoad.Force3.Z) & ")"

    ' Get loop number
    message += vbLf & "Loop number is :" & Convert.ToString(areaLoad.NumLoops)
    For i As Integer = 0 To areaLoad.NumLoops - 1
        ' Get curve number
        message += vbLf & "Curve number is : " & areaLoad.NumCurves(i)
        For j As Integer = 0 To areaLoad.NumCurves(i) - 1
            Dim curve As Autodesk.Revit.DB.Curve = areaLoad.Curve(i, j)
            ' Get curve start point
            message += ((vbLf & "Curve start point:(" + curve.GetEndPoint(0).X & ", ") + curve.GetEndPoint(0).Y & ", ") + curve.GetEndPoint(0).Z & ")"
            ' Get curve end point
            message += (("; Curve end point:(" + curve.GetEndPoint(1).X & ", ") + curve.GetEndPoint(1).Y & ", ") + curve.GetEndPoint(1).Z & ")"
        Next
    Next

    ' Get ref points information
    For k As Integer = 0 To areaLoad.NumRefPoints - 1
        ' Get areaload Ref point
        message += ((vbLf & "AreaLoad Ref point :(" + areaLoad.RefPoint(k).X & ", ") + areaLoad.RefPoint(k).Y & ", ") + areaLoad.RefPoint(k).Z & ")"
    Next
    TaskDialog.Show("Revit", message)
End Sub