curso-net

http://www.willydev.net/descargas/Cursos/vbnet/

http://www.startvbdotnet.com/threading/thread2.aspx

http://www.vb-helper.com/howto_net_thread_priority.html

http://msdn.microsoft.com/es-es/library/ex0ss12c(VS.80).aspx

http://www.elguille.info/NET/futuro/Ensamblados_amigos_Visual_Basic_9.aspx

http://geeks.ms/blogs/jorge/pages/Visual-Studio-2005-_3A003A00_-Aplicaci_F300_n-para-habilitar-un-ensamblado-al-pulsar-Agregar-Referencia-en-Visual-Studio.aspx

http://msdn.microsoft.com/en-us/library/c405shex.aspx

Programando con ensamblados de .NET

http://msdn.microsoft.com/en-us/library/8wxf689z.aspx

Imports System
Imports System.Collections

Public Class MainClass

Shared Sub Main(ByVal args As String())
Dim students(4) As Student
students(0) = New Student("A", "E")
students(1) = New Student("B", "D")
students(2) = New Student("C", "C")
students(3) = New Student("D", "B")
students(4) = New Student("E", "A")

' Make a comparer.
Dim student_comparer As New StudentComparer

' Sort.
Array.Sort(students, student_comparer)

' Display the results.
Dim txt As String = ""
For i As Integer = 0 To students.GetUpperBound(0)
Console.WriteLine( students(i).ToString() )
Next i
End Sub

End Class

Public Class Student
Public FirstName As String
Public LastName As String

Public Sub New(ByVal first_name As String, ByVal last_name As String)
FirstName = first_name
LastName = last_name
End Sub

Public Overrides Function ToString() As String
Return LastName & ", " & FirstName
End Function
End Class

Public Class StudentComparer
Implements IComparer

Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
Implements System.Collections.IComparer.Compare
Dim student1 As Student = DirectCast(x, Student)
Dim student2 As Student = DirectCast(y, Student)

Return String.Compare(student1.ToString, student2.ToString)
End Function
End Class