Imports clsNativ
Public Class Form1

    Dim cs As String = "data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
    Dim MA As Integer = 1
    Dim dm As New clsNativ.clsNativeDok
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Volagenauswahl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Volagenauswahl.Click
        dm.Connectionstring = cs
        dm.Mitarbeiternr = MA
        dm.Parentform = Me
        dm.Show_DokSelect()

    End Sub

    Private Sub VorlagenManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VorlagenManager.Click
        dm.Connectionstring = cs
        dm.Mitarbeiternr = MA
        dm.Parentform = Me
        dm.Show_DokVorlagen()
    End Sub
End Class