TIR-Formular Button

2023-03-15 16:37:44 +01:00
parent b7c7496e22
commit f4c5241c8d
3 changed files with 300 additions and 282 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -4435,6 +4435,13 @@ Public Class frmHauptfenster
        f.Show()
        Me.Cursor = Cursors.Default
    End Sub
+
+    Private Sub TIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TIRToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Dim eh As New SDL.frmTIR
+        eh.Show()
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class

 Public Class AvisoStatusFunctions