No es posible crear una nueva página de seguridad para la pila

sub loquesea(sender as object) handles algún evento cualquiera
     sender.propiedad = uno(32)
end sub
 
function uno(valor as int32)
    return dos(valor)
end sub
 
function dos(valor as int32)
    ' hacer cosas...
    return valor modificado
end function

r.Next(0, 35) 'Esto no se muy bien que hace xD

rand(0, $size - 1)

    Private Function Random_String(ByVal Length As Int32, _
                                   Optional ByVal Characters As String = _
                                   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" _
                                  ) As String
 
        Select Case Length
 
            Case Is < 1 ' Is 0 or negative
                Throw New Exception("Length must be greater than 0")
 
            Case Else ' Is greater than 0
 
                Dim str As String = String.Empty
                Dim rand As New Random, rand_length As Int32 = Characters.Length
 
                Do Until str.Length = Length
                    str &= Characters.Substring(rand.Next(0, rand_length), 1)
                Loop
 
                Return str
 
        End Select
 
    End Function

    ' Loop through all the command line arguments given.
    For I As Integer = 0 To My.Application.CommandLineArgs.Count - 1
        ' If an argument equals "/m"
        If My.Application.CommandLineArgs.Item(I).ToLower = "/m" Then
            MsgBox("You have used /m")
        Else ' If it doesn't equal "/m"
            MsgBox("Incorrect CMD Argument.")
        End If
    Next 

    Declare Function AttachConsole Lib "kernel32.dll" (ByVal dwProcessId As Int32) As Boolean
    Declare Function FreeConsole Lib "kernel32.dll" () As Boolean
 
    AttachConsole(-1) ' Attach the console
    System.Console.Writeline("I am writing from a WinForm to the console!")
    FreeConsole() ' Desattach the console

#Region " App Is Launched From CMD? "
 
    ' [ App Is Launched From CMD? Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples:
    ' MsgBox(App_Is_Launched_From_CMD)
    ' If App_Is_Launched_From_CMD() Then Console.WriteLine("Help for this application: ...")
 
    Declare Function AttachConsole Lib "kernel32.dll" (ByVal dwProcessId As Int32) As Boolean
    Declare Function FreeConsole Lib "kernel32.dll" () As Boolean
 
    Private Function App_Is_Launched_From_CMD() As Boolean
        If AttachConsole(-1) Then
            FreeConsole()
            Return True
        Else
            Return False
        End If
    End Function
 
#End Region