Visual Basic

Private Function Identity(value As Double) As Double
       Return value
   End Function

   Private Function [Step](value As Double) As Double
       If value <= 0 Then
           Return 0
       Else
           Return 1
       End If
   End Function

   Private Function LogarithmicSigmoid(value As Double, alpha As Double) As Double
       If value < -45.0 Then
           Return 0
       ElseIf value > 45.0 Then
           Return 1
       Else
           Return (1.0 / (1.0 + Exp(-alpha * value)))
       End If
   End Function

   Private Function SymmetricSigmoid(value As Double) As Double
       Return HyperbolicTangent(value)
   End Function

   Private Function HyperbolicTangent(value As Double) As Double
       If value < -45 Then
           Return -1.0
       ElseIf value > 45.0 Then
           Return 1.0
       Else
           Return Tanh(value)
       End If
   End Function

Public Enum ActivationFunctions
        IDENTITY
        [STEP]
        LOGARITHMIC_SIGMOID
        SYMMETRIC_SIGMOID
        HYPERBOLIC_TANGENT
    End Enum

Private activationFunction As Func(Of Double)

Public Sub SetActivationFunction(activationFunction As ActivationFunctions, value As Double, Optional alpha As Double = 1)
        Select Case activationFunction
            Case ActivationFunctions.IDENTITY
                Me.activationFunction = Function(value As Double) '<---PROBLEM LINE
        End Select
End Sub

Public Sub SetActivationFunction(ByVal activationFunction As Func(Of Double))
        'DON'T KNOW WHAT TO DO HERE
End Sub

Class MainWindow
    Dim writingPath As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\_UI Sounds\"
    Dim uiPlayer As New WMPLib.WindowsMediaPlayer
    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        RunTest()
    End Sub
    Private Sub RunTest()
        Debug.Print("Started!")
        uiPlayer.URL = writingPath & "son1.wav"
        uiPlayer.controls.play()
        '
        Dim a As Integer = 0
        For i As Integer = 0 To 999999999
            a = i
        Next
        Debug.Print("Done!")
    End Sub
End Class

Imports System.Threading
Class MainWindow
    Dim writingPath As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\_UI Sounds\"
    Dim uiPlayer As New WMPLib.WindowsMediaPlayer
    Dim uiThread As Thread = New Thread(AddressOf PlayFile)
    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        RunTest()
    End Sub
    Private Sub RunTest()
        uiThread = New Thread(AddressOf PlayFile)
        uiThread.Start()
        '
        Debug.Print("Started!")
        Dim a As Integer = 0
        For i As Integer = 0 To 999999999
            a = i
        Next
        Debug.Print("Done!")
    End Sub
    Private Sub PlayFile()
        uiPlayer.URL = writingPath & "son1.wav"
        uiPlayer.controls.play()
    End Sub
End Class

Dim ext As String() = {"*.jpg", "*.bmp","*png"}
Dim files As String() = ext.SelectMany(Function(f) Directory.GetFiles(romPath, f)).ToArray
Array.Sort(files)

Dim files As String() = ext.SelectMany(Function(f) Directory.GetFiles(romPath, f)[B].Order By Name[/B]).ToArray