PageLayoutControl的接口问题

<P>我建立了一个类acls,如下的语句<BR>Private pPage As IPageLayoutControl<BR>Public Sub yngc_sbSetScale()<BR>    Dim strScale As String<BR>    strScale = InputBox("请输入图幅的比例尺", "比例尺为:")</P>
<P>    If strScale = "" Then<BR>        MsgBox "输入为空,请重新输入!"<BR>        Exit Sub<BR>    End If</P>
<P>    pPage.ActiveView.FocusMap.MapScale = strScale<BR>    pPage.Refresh<BR>End Sub</P>
<P><BR>Public Property Get pagec() As IPageLayoutControl<BR>    pagec = pPage<BR>End Property</P>
<P>Public Property Let pagec(ByVal vNewValue As IPageLayoutControl)<BR>    Set vNewValue = pagec<BR>End Property<BR>Public Property Set pagec(ByVal vNewValue As IPageLayoutControl)</P>
<P>    Set pPage = vNewValue<BR>    <BR>End Property<BR>生成aa.dll,在工程中添加PageLayoutControl并引用aa.dll,用如下的语句调用,老是出现类型不一致,不知道应该如何改?<BR>Private Sub Command1_Click()<BR>   Dim a As addna.yngc_clsaddna<BR>   Set a = New yngc_clsaddna<BR>   Set a.pagec = PageLayoutControl1<BR>   a.yngc_sbSetScale<BR>End Sub</P>
<P>谢谢!</P>