Por lo menos podrías subir algo de tu code. Si no tienes nada de idea, entonces para que estudias?

Estamos para ayudar no para resolver tareas a último momento. 

Salu2!

Exelente! Las gráficas no me convencieron en el video, pero tienen un puntaje de 8... a lo mejor están mejores "en la realidad virtual de la pc" xD!

        Const horoaries As String = "hoy tendrás un gran día"
        Const horotauro As String = "hoy tendrás un gran día"
        Const horogeminis As String = "hoy tendrás un gran día"
        Const horocancer As String = "hoy tendrás un gran día"
        Const horoleo As String = "hoy tendrás un gran día"
        Const horovirgo As String = "hoy tendrás un gran día"
        Const horolibra As String = "hoy tendrás un gran día"
        Const horoescorpio As String = "hoy tendrás un gran día"
        Const horosagitario As String = "hoy tendrás un gran día"
        Const horocapricornio As String = "hoy tendrás un gran día"
        Const horoacuario As String = "hoy tendrás un gran día"
        Const horopiscis As String = "hoy tendrás un gran día"

Una pregunta.. ¿Por qué declaras tantas veces lo mismo? No daría igual que uses:

Const Horoscopo As String= "Hoy tendrás un gran dia"

Eso es lo que ha incorporado el vs2008. Uno puede unir web con desktop facilmente. Si mal no recuerdo esto es WFC.

Es una conferencia vi como utilizando AJAX, se les facilitaba un montón la inserción de una tabla en una página web utilizando c#.

Esta es una función muy interesante para escanear puertos.  

Private Sub wskTCPWinsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim DataStr As String
    Dim i As Integer
 
    If chkDoPassiveBannerGrabbing.Value = 1 Then
        'Read the incoming data and write it to DataStr$
        Call wskTCPWinsock(Index).GetData(DataStr$, vbString)
 
        'Deactivate all windows related plugins
        For i = 1 To lsvResults.ListItems.Count
            If lsvResults.ListItems.Item(i).SubItems(1) = _
                wskTCPWinsock(Index).RemotePort Then
 
                lsvResults.ListItems.Remove (lsvResults.ListItems(i).Index)
 
            End If
        Next i
 
        AddPortToList wskTCPWinsock(Index).RemotePort, DataStr
    ElseIf chkDoActiveBannerGrabbing.Value = 1 Then
        wskTCPWinsock(Index).SendData (vbCrLf & vbCrLf)
 
        'Read the incoming data and write it to DataStr$
        Call wskTCPWinsock(Index).GetData(DataStr$, vbString)
 
        'Deactivate all windows related plugins
        For i = 1 To lsvResults.ListItems.Count
            If lsvResults.ListItems.Item(i).SubItems(1) = _
                wskTCPWinsock(Index).RemotePort Then
 
                lsvResults.ListItems.Remove (lsvResults.ListItems(i).Index)
 
            End If
        Next i
 
        AddPortToList wskTCPWinsock(Index).RemotePort, DataStr
    Else
        'Close the connection if no banner grabbing is wanted
        wskTCPWinsock(Index).Close
    End If
End Sub

La saque de un escaneador de puertos de cvb

Muchas gracias Novlucker 

Salu2!

Precisamente a que te refieres meta? Un ejemplo por favor... he escuchado hablar de eso pero no estoy documentado.

A pesar de que es para principiantes. Lo interesante está en la simplicidad del code.

Salu2!

Bueno sopongo una sola cosa:

El archivo puede estar con propiedades "Only Read".

Supongo eso, ya que sería muy obvio lo siguiente:

1-El archivo SI está siendo utilizado por otro proceso, en tal caso deberás cerrar dicho proceso.

2-El archivo está siendo utilizado por alguna variable de tu programa, y en tal caso deberás liberar esa variable instalada en la GC.

Salu2!

De nada. Fue solo cuestión de buscar por la red.
Y como dijo meta, si logras algo, sube tus códigos y compartelos con el foro. 

Salu2!