如何设置activex名称？

Question

你好，我的朋友们，我用 vb.net 创建了一个用于 ms-access 的 activex 我使用该代码来注册

<ProgId("AFor Test Listview BySedo")> 
<ClassInterface(ClassInterfaceType.AutoDual)>
 Public Class UserControl1
 Public Const EventsId As String = "50965EF1-E501-42E9-8E8A-BCDBFA44DE1E"
 Public Sub New()
 InitializeComponent() 
End Sub 

还有那个代码

 <ComRegisterFunction()>
    Public Shared Sub RegisterClass(ByVal key As String)
        Dim sb As StringBuilder = New StringBuilder(key)
        sb.Replace("HKEY_CLASSES_ROOT\", "")
        Dim k As RegistryKey = Registry.ClassesRoot.OpenSubKey(sb.ToString(), True)
        Dim ctrl As RegistryKey = k.CreateSubKey("Control")
        ctrl.Close()
        Dim inprocServer32 As RegistryKey = k.OpenSubKey("InprocServer32", True)
        inprocServer32.SetValue("CodeBase", Assembly.GetExecutingAssembly().CodeBase)
        inprocServer32.Close()
        k.Close()
    End Sub

但是activex中的名字显示为AFor_Test_Listview_BySedo.UserControl1

我该如何设置这个名字？