Public Class Form1
    Dim dbc As New TKB.VV.DB.DB_Connection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DiagramControl1.Init_Diagram()
        Me.DiagramControl1.ConnectionString = Globals.sConnectionString
        Me.DiagramControl1.TempFilePath = "c:\temp\"
        Me.DiagramControl1.ApplikationNr = 358
    End Sub


    Private Sub DiagramControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiagramControl1.Load

    End Sub
End Class