Abstração e interface

Question

Oi, tenho uma aplicação feita em VB.NET que está usando interfaces! Vou postar algumas partes do código!

Public NotInheritable Class Splash
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles tmSplash.Tick

        pgbFusion.Value += 5
        If pgbFusion.Value = 5 Then
            lblStatus.Text = "Loading..."
        ElseIf pgbFusion.Value = 20 Then
            lblStatus.Text = "Loading connections..."
        ElseIf pgbFusion.Value = 40 Then
            lblStatus.Text = "Loading components..."
        ElseIf pgbFusion.Value = 60 Then
            lblStatus.Text = "Loading main interface..."
        ElseIf pgbFusion.Value = 80 Then
            lblStatus.Text = "Completed..."
        ElseIf pgbFusion.Value = 100 Then
            lblStatus.Text = "Starting..."
            For counter = 90 To 10 Step -5
                Me.Opacity = counter / 100
                Me.Refresh()
                Threading.Thread.Sleep(100)
            Next counter
            Me.Hide()
            tmSplash.Stop()
            'codigo para chamar outro form
        End If
    End Sub

Código do form login:

Public Class Login
    Implements iDal(Of Logon)

    Protected _Conexao As iConexao
    Public Sub New(Conexao As iConexao)
        InitializeComponent()
        _Conexao = Conexao
        _Conexao.Open()
    End Sub

Interface iDal.vb:

Public Interface iDal(Of T)
    Inherits iDisposable
    Function Insert(Model As T) As T
End Interface

Agora gostaria de saber como chamar o formulário em uma classe com interface implementada