neu

Aviso/frmAddAktenvermerkShort.vb

@@ -224,10 +224,10 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
     End Sub
 
     Private Sub frmAddAktenvermerkShort_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        Dim p = System.Windows.Forms.Cursor.Position
+        Dim p = Cursor.Position
         If (p.X + Me.Width) > My.Computer.Screen.WorkingArea.Width Then p.X = My.Computer.Screen.WorkingArea.Width - Me.Width
         If (p.Y + Me.Height) > My.Computer.Screen.WorkingArea.Height Then p.Y = My.Computer.Screen.WorkingArea.Height - Me.Height
-        Me.Location = p '.Me.PointToClient(System.Windows.Forms.Cursor.Position)
+        Me.Location = p '.Me.PointToClient(System.Cursor.Position)
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click