Foro de elhacker.net

Hola muy buenas tengo un pequeño problema y espero me puedan ayudar :) .
Empecemos explicando: Soy nuevo utilizando procesos en paralelo y desames.
Mi problema es el siguiente:

Tengo una ventana de LogIn en la cual quiero que cuando se le de a ingresar aparezca un ProcessRing(Estoy utilizando MahApps Metro en una app WPF) y el cual en segundo plano valla cargando la visual que sigue y cuando este termine de cargar el ProcessRing se detenga y desaparezca cerrando la visual y abriendo la otra. Para intentar hacer esto cree el siguiente código:

(Cabe aclarar que tambien quiero que mientras este el ProcessRing se la visual quede inutilizable)
 

Imports System.ComponentModel
Imports MahApps.Metro.Controls
Imports MahApps.Metro.Controls.Dialogs
 
Public Class LogicLogIn : Inherits MetroWindow
 
    Dim bw As New BackgroundWorker
 
    Sub New()
        InitializeComponent()
        bw.WorkerReportsProgress = True
        AddHandler bw.DoWork, AddressOf bw_DoWork
        AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
    End Sub
 
    Private Sub BtnLogIn_Click(sender As Object, e As RoutedEventArgs) Handles BtnLogIn.Click
        If TxtUser.Text.Equals("") Or TxtPass.Password.ToString.Equals("") Then
            Me.ShowMessageAsync("Alerta", "Usuario o Contraseña incorrecta")
        Else
            Ring.Visibility = Visibility.Visible
            Ring.IsActive = True
            If Not bw.IsBusy = True Then
                bw.RunWorkerAsync()
            End If
        End If
 
    End Sub
 
    Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs)
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        Dim menu As New LogicMainMenu()
        Me.Close()
        menu.ShowDialog()
    End Sub
 
    Private Sub bw_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
        If e.Cancelled = True Then
            'si se cancela 
        ElseIf e.Error IsNot Nothing Then
            'si hay algun error al hacerce la tarea en el hilo
            MsgBox(e.Error.Message.ToString)
        Else
            Ring.IsActive = False
            Ring.Visibility = Visibility.Hidden
        End If
    End Sub
 
End Class

La cosa esta que a la hora de ejecución cuando cumplo los valores de validación y le doy al botón aceptar aparece el ProcessRing se activa y me lanza un error.

Les dejo imágenes del programa:
Img 1
(https://k61.kn3.net/9/1/9/2/8/5/D67.png)

Img2
(https://k60.kn3.net/D/1/8/7/7/0/B31.png)

Img 3
(https://k60.kn3.net/8/E/B/5/7/D/8CB.png)

Espero me puedan ayudar desde Ya muchas gracias :)