Namespace My
    Partial Friend Class MyApplication
        Private WithEvents MyDomain As AppDomain = AppDomain.CurrentDomain
 
        Private Function MyDomain_AssemblyResolve(ByVal sender As Object, ByVal _
          args As System.ResolveEventArgs) As System.Reflection.Assembly _
          Handles MyDomain.AssemblyResolve
 
            If args.Name.Contains("Krypton") Then
                Return (System.Reflection.Assembly.Load( _
                  My.Resources.ComponentFactory_Krypton_Toolkit))
            End If
 
            If args.Name.Contains("Qios") Or args.Name.Contains("DevSuite") Then
                Return (System.Reflection.Assembly.Load( _
                  My.Resources.Qios_DevSuite_Components))
            End If
 
            Return Nothing
        End Function
    End Class
End Namespace