COM

IRecordInfo *pUdtRecordInfo = NULL;<br />
    HRESULT hr = ::GetRecordInfoFromGuids( LIBID_STUDENTLib,  <br />
                                           1, 0, <br />
                                           0,<br />
                                           Student_IID,/*defined as const IID having same value as LIBID_STUDENTLib*/<br />
                                           &pUdtRecordInfo );<br />
    if( FAILED( hr ) ) {<br />
        HRESULT hr2 = Error( _T("Can not create RecordInfo interface for UDTVariable") );<br />
        //return( hr2 );<br />
        return( hr );<br />
    }

STDMETHODIMP CStudentUtil::GetFirstRankStudent(SAFEARRAY **StudentArray,Student *pStudent)<br />
{<br />
	if(!StudentArray)<br />
		return(E_POINTER);<br />
	if(!pStudent)<br />
		return(E_INVALIDARG);<br />
<br />
	long lBound=-1;<br />
	long UBound=-1;<br />
<br />
	Student *ob1=NULL,*ob2=NULL,*max=NULL;<br />
<br />
	HRESULT hr;<br />
<br />
	hr=::SafeArrayGetUBound(*StudentArray,1,&UBound); <br />
	hr=::SafeArrayGetLBound(*StudentArray,1,&lBound); <br />
<br />
	hr=::SafeArrayGetElement(*StudentArray,&lBound,(void*)ob1);<br />
	max=ob1;<br />
	<br />
	if(FAILED(hr))<br />
		return hr;<br />
<br />
	for(long i=lBound+1;i<UBound;i++)//finding the obj which is having highest total<br />
	{<br />
		hr=::SafeArrayGetElement(*StudentArray,&i,(void*)ob2);<br />
		if(FAILED(hr))<br />
			return hr;<br />
		else<br />
		{<br />
			if(ob2->Total>ob1->Total)/*Total is the member of my Student structure*/<br />
				max=ob2;<br />
		}<br />
	}<br />
	pStudent=max;<br />
	return S_OK;<br />
}

Dim d As STUDENTLib.Student<br />
    Set ob = New STUDENTLib.StudentUtil<br />
        d = ob.GetFirstRankStudent(a)<br />
            Set ob = Nothing