Public Class Form1
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Application.Exit()
    End Sub
 
    Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles InfoToolStripMenuItem.Click
        Dim Pfad As String = backslash(Application.StartupPath())
        MsgBox(Pfad & "software.txt", MsgBoxStyle.Information, "")
 
    End Sub
 
    Private Sub AusführenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles AusführenToolStripMenuItem.Click
        Shell("C:\WINDOWS\NOTEPAD.EXE", AppWinStyle.MaximizedFocus)
    End Sub
 
	Private Function backslash(ByVal path As String) As String
	    If path = "" Then
	        Return ""
	    Else
	        If Right(path, 1) <> "\" Then
	            Return path & "\"
	        Else
	            Return path
	        End If
	    End If
	    Exit Function
	End Function
End Class