MS_10.11.2015

app/DD-Record-Organiser/frmMain.vb

@@ -222,6 +222,11 @@ Public Class frmMain
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
+            If Environment.UserDomainName.ToLower.Contains("digitald") Then
+                Button1.Visible = True
+            Else
+                Button1.Visible = False
+            End If
             ' Form Titel setzen
             ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
             Me.Text = Application.ProductName
@@ -436,7 +441,7 @@ Public Class frmMain
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim form As New XtraForm2()
+        Dim form As New frmConstructor_Main()
         form.Show()
     End Sub
 End Class