' Se selecciona la celda sobre la que se quiere el comentario
Range("C1").Select
' Se crea el comentario para la celda
Range("C1").AddComment
' Se establece como visible el comentario
Range("C1").Comment.Visible = False
' Se esteblece el contenido del comentario
Range("C1").Comment.Text Text:="Este es mi hola mundo de comentarios!!"
' Se ajusta el tamaño del cuadro que contiene el comentario para permitir la visualizacion del texto
Range("C1").Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
Range("C1").Comment.Shape.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft

Un Saludo.

Public Function ValidarTextosFecha() As Boolean
  Dim blnValido As Boolean = True
  Dim Expresion As System.Text.RegularExpressions.Regex
  Expresion = New System.Text.RegularExpressions.Regex("^((([0]?[1-9]|1[0-2])(:)[0-5][0-9]( )?" & _
              "(AM|am|aM|Am|PM|pm|pM|Pm))|(([0]?[0-9]|1[0-9]|2[0-3])(:)[0-5][0-9]))$", _
              System.Text.RegularExpressions.RegexOptions.IgnoreCase)

  If Not Expresion.IsMatch(txtHoraFin.Text) Then
    Windows.Forms.MessageBox.Show("Formato inválido fecha inicio")
    blnValido = False
  End If
  If Not Expresion.IsMatch(txtHoraInicio.Text) Then
    Windows.Forms.MessageBox.Show("Formato inválido fecha final")
    blnValido = False
  End If
  If blnValido Then

    Dim inthorainicio As Integer = 0
    Dim inthorafin As Integer = 0
    Dim strTemporal As String = ""

    If txtHoraInicio.Text.ToLower.IndexOf("pm") > 0 Then
      inthorainicio = 1200
    End If
    strTemporal = txtHoraInicio.Text.Trim.Replace("am", "").Replace("pm", "").Replace(":", "")
    If txtHoraInicio.Text.ToLower.IndexOf("pm") > 0 Or _
      txtHoraInicio.Text.ToLower.IndexOf("am") > 0 Then
      strTemporal = strTemporal.Substring(0, 2).Replace("12", "00") & _
                    strTemporal.Substring(2, strTemporal.Length - 2)
    End If
    inthorainicio += CInt(strTemporal)

    If txtHoraFin.Text.ToLower.IndexOf("pm") > 0 Then
      inthorafin = 1200
    End If
    strTemporal = txtHoraFin.Text.Trim.Replace("am", "").Replace("pm", "").Replace(":", "")
    If txtHoraFin.Text.ToLower.IndexOf("pm") > 0 Or _
      txtHoraFin.Text.ToLower.IndexOf("am") > 0 Then
      strTemporal = strTemporal.Substring(0, 2).Replace("12", "00") & _
                    strTemporal.Substring(2, strTemporal.Length - 2)
    End If
    inthorafin += CInt(strTemporal)
    If inthorafin <= inthorainicio Then
      Windows.Forms.MessageBox.Show("La hora final debe ser mayor que la hora inicial")
      blnValido = False
    End If
  End If
  Return blnValido
End Function

Espero sea de ayuda.
Un Saludo.

Buscando en uno que otro foro encontre que la solucion es:

HABILITAR LA COMPATIBILIDAD CON INTERNET INFORMATION SERVER 6.0

Para ello:

1) Abre “Panel de Control”

2) Click en “Programas y caracteristicas”

3) Selecciona “Activar/inactivar Caracteristicas de Windows ” del menu izquierdo

4) Expande el nodo “Internet Information Services”  , y luego el nodo “Herramientas de administración web”.

5) Chequea el nodo “Compatibilidad con Administracion de IIS6″ y click en Aceptar.

Espero sea de ayuda, un saludo.

Saludos.

Descargar

Observacion: El archivo esta en mi cuenta de skydrive, bastará con dar click en descargar.

Espero sea de ayuda, un Saludo.

Existen tres formas para ello:
1. Usando la directiva @page como sigue:

<@Page Languaje=”VB” MasterPageFile=”MiSitio.master”@>

2. Definiendo la Master-Page en el web.config. Esto implicara que la pagina se esteblecera a todas las paginas del sitio. Cabe anotar que todas las Content-Page deberan tener los Content-Controls correspondientes a los definidos en la Master-Page a aplicar. El elemento en el archivo de configuracion se veria asi:

<pages masterPageFile=”MiSitio.master”>

3.Definiendo una Master-Page para que aplique a una carpeta en particular del sitio. Funciona enlazando las Master-Pages a los niveles de la aplicacion.

'VB
   Dim objEtiqueta As Label = CType(Master.FindControl("lblMiEtiqueta"), Label)
   objEtiqueta.Text = "El nuevo texto de mi etiqueta"

Saludos

Teniendo:

enum MiEnumerador { colombia = 0 , ecuador = 1, peru = 2, venezuela = 3, bolivia = 4 }

Para cargar este enumerador en un dropdownlist:

protected void Page_Load(object sender, EventArgs e)
{
	if (!IsPostBack)
	{
		drpMiDrop.DataSource = Enum.GetNames(typeof(MiEnumerador ));
		drpMiDrop.DataBind();
	}
}

Espero sea de ayuda. Un Saludo.

Function EliminarEspeciales(ByVal s As String, _
Optional ByVal Filtro As String = "{}[]!"#$%&/()=?¡'¿|*+¨´:.;,<>") As String
Dim I As Integer
For I = 1 To Len(Filtro)
s = Replace(s, Mid(Filtro, I, 1), "")
Next
EliminarEspeciales = s
End Function
...
Dim strMiCadena = "H!ol$%a_ M?un)do)"
strMicadena = EliminarEspeciales(strMiCadena)

Logicamente al final tendremos en strMiCadena el valor “Hola Mundo”

Un Saludo

La solución a esto: adicionar mi usuario al grupo dba para que tenga permisos de inicio, parada y gestión del servicio de base de datos:
$sudo usermod -a -G dba eruano

Y listo, si el comando se ejecuto bien ahora deberíamos poder iniciar y detener el servicio de base de datos desde las opciones del menú

Saludos