Private Sub TVHelp_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TVHelp.DoubleClick
Dim currentFont As System.Drawing.Font = txtHelp.SelectionFont
Dim Absatz As Array
Select Case TVHelp.SelectedNode.Text
Case Is = "Hilfe" : Helptext = "Willkommen bei der Hilfe." + vbNewLine + vbNewLine + "Bitte wählen Sie einfach ein Begriff auf der linken Seite aus"
Case Is = "Lame.exe" : Helptext = "Lamedatei" + vbNewLine + vbNewLine + "Hier soll die lame.exe angegeben werden. Sie wird benötigt, um die mp3 zu erstellen"
Case Is = "mp3 Input File" : Helptext = "mp3 Input File" + vbNewLine + vbNewLine + "Hier wird die Audiodatei angegeben, welche in das mp3-Format umgewandelt werden soll"
End Select
txtHelp.Text = Helptext
txtHelp.SelectionStart = 0
Absatz = Split(Helptext, vbNewLine)
txtHelp.SelectionLength = Len(Absatz(0))
txtHelp.SelectionFont = New Font( _
currentFont.FontFamily, _
currentFont.Size, _
FontStyle.Bold)
End Sub