' Usage:
    ' InvokeControl(RichTextBox1, Sub(x) x.AppendText("a"))
 
#Region " Invoke Controls "
    Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
        If Control.InvokeRequired Then
            Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
        Else
            Action(Control)
        End If
    End Sub
#End Region

Module InvokeRequiredHandler
    <System.Runtime.CompilerServices.Extension()> _
    Public Sub HandleInvokeRequired(Of T As ISynchronizeInvoke)(ByVal controlToInvoke As T, ByVal actionToPerform As Action(Of T))
        'Check to see if the control's InvokeRequired property is true
        If controlToInvoke.InvokeRequired Then
            'Use Invoke() to invoke your action
            controlToInvoke.Invoke(actionToPerform, New Object() {controlToInvoke})
        Else
            'Perform the action
            actionToPerform(controlToInvoke)
        End If
    End Sub
End Module

HandleInvokeRequired(Textbox1, ¿?)

Echo %date:~3% | FINDSTR "[0-1][2-9]/2013" >NUL && (
      SCHTASKS ...
)

REG ADD HKCU \...

 /t REG_SZ

Set "Fecha=%D%/%M%/%A%"

 if %m% == 2 & %a% == 2013 

if "%m%"" == "2" if "%a%"" == "2013"

if %m% == 2 

FOR /L %%x in (1,1,28) DO (
	if %d% == %%x
...

if %d% == %%x (SCHTASKS /create /SD %FECHA% /ST 00:00 /SC MINUTE /TN tarea /TR C:\tarea.bat)

@echo off
REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "check" /d "C:\prog_tarea.bat" /F
 
' Si el més es "02" y el año "2013" la tarea se agrega para la fecha actual.
IF "%date:~3%" EQU "02/2013" (
	SCHTASKS /create /SD %DATE% /ST 00:00 /SC MINUTE /TN tarea /TR "C:\tarea.bat"
)

          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default></Default>
          <Function>sdfsdf</Function>

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <SnippetTypes>
        <SnippetType>Expansion</SnippetType>
      </SnippetTypes>
      <Title>
         Determinar si un TextFile es Unicode
      </Title>
      <Author>Elektro H@cker</Author>
      <Description>
         Función que manda un valor boolean TRUE o FALSE
      </Description>
      <HelpUrl>
      </HelpUrl>
      <Shortcut>
      </Shortcut>
    </Header>
    <Snippet>
      <Declarations>
        <Literal Editable="true">
          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default>
          </Default>
          <Function>sdfsdf</Function>
        </Literal>
      </Declarations>
      <Code Language="vb"><![CDATA[
 
    ' Dim file_codification As String = is_unicode("C:\File.txt")
 
    Private Function is_unicode(ByVal path As String) As Boolean
        Dim enc As System.Text.Encoding = Nothing
        Dim file As System.IO.FileStream = New System.IO.FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read)
        If file.CanSeek Then
            Dim bom As Byte() = New Byte(3) {}
            file.Read(bom, 0, 4)
            If (bom(0) = &HEF AndAlso bom(1) = &HBB AndAlso bom(2) = &HBF) OrElse (bom(0) = &HFF AndAlso bom(1) = &HFE) OrElse (bom(0) = &HFE AndAlso bom(1) = &HFF) OrElse (bom(0) = 0 AndAlso bom(1) = 0 AndAlso bom(2) = &HFE AndAlso bom(3) = &HFF) Then ' ucs-4
                Return True
            Else
                Return False
            End If
            file.Seek(0, System.IO.SeekOrigin.Begin)
        Else
            Return False
        End If
    End Function
 
]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>