VS-ModoExecutando

    Um dos problemas que a gente encontra e que tem códigos que só devem ser executados quando o sistema está sendo executado no modo Normal(após compilar), e outros códigos no modo Debug, e ainda outros em modo Release.
    Para resolver isso resolvi publicar esta função que eu mesmo criei.
 
Basta coloca-la em um Módulo e chama-la Ex:
If ModoExecutando() = "Debug" Then
If ModoExecutando() = "Release" Then
If ModoExecutando() = "Normal" Then


    ''' <summary> Verifica se o se o Sistema  esta Executando em modo Debug / Release / Normal .
    '''  <para>if ModoExecutando() = "Debug" Then </para>
    '''  <para>if ModoExecutando() = "Release" Then </para>
    '''  <para>if ModoExecutando() = "Normal" Then </para>
    ''' </summary>
    ''' <returns></returns>
    Public Function ModoExecutando() As String
        '**************************************************************
        On Error Resume Next
        If Not Debugger.IsAttached Then
            'O Sistema foi executado modo Normal /Final
            ModoExecutando = "Normal"
            Exit Function
        End If

#If DEBUG Then
        'O Sistema foi executado modo Release
        ModoExecutando = "Release"

#Else
        'O Sistema foi executado modo Debug
        ModoExecutando = "Debug"
#End If

    End Function



Se você não Sabe o que é modo Debug clique aqui.

Se você não Sabe o que é modo Release clique aqui.

Se você não Sabe o que é Módulo clique aqui.