TIR

Aviso/frmHauptfenster.vb

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