Registor a control though VB

[Electroman]

When I use this to registor a control. The control doesn't work in design mode.

Private Declare Function RegMSINET Lib "MSINET.OCX" Alias "DllRegisterServer" () As Long

Private Declare Function UnRegMSINET Lib "MSINET.OCX" Alias "DllUnregisterServer" () As Long

Const ERROR_SUCCESS = &H0

Private Sub Command1_Click()
If RegMSINET = ERROR_SUCCESS Then
    MsgBox "Registration Successful"
Else
    MsgBox "Registration Unsuccessful"
End If

End Sub

Does anyone know how to registor a control so it can be used in the design enviroment.