Module Globals
    Public Conn As New TKB.VV.DB.clsConnectionProvider
    Public SimUpdate As Boolean = False

    Public Sub Printlog(ByVal text As String)
        If text = "Devider" Then text = "----------------------------------------------------------------------------------------------"
        WriteLine(1, text)
    End Sub
End Module