TIR

Aviso/frmHauptfenster.vb

@@ -4438,7 +4438,7 @@ Public Class frmHauptfenster
 
 
 
-    Private Sub CarnetTIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRToolStripMenuItem.Click
+    Private Sub CarnetTIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TIRToolStripMenuItem.Click
         Me.Cursor = Cursors.WaitCursor
         Dim eh As New SDL.frmTIR
         eh.Show()
@@ -4451,6 +4451,7 @@ Public Class frmHauptfenster
         eh.Show()
         Me.Cursor = Cursors.Default
     End Sub
+
 End Class
 
 Public Class AvisoStatusFunctions