Register GAC at runtime

Public Sub GacInstall(ByVal AssemblyPath As String)
        Dim instance As System.EnterpriseServices.Internal.Publish
        instance = New System.EnterpriseServices.Internal.Publish
        instance.GacInstall(AssemblyPath)
    End Sub


            strQuerystring = "Specify full path of dll"
            GacInstall(strQuerystring)