VB.NET下的事件和委托

http://developer.51cto.com/art/201106/269610.htm

VB.NET多线程

http://www.jb51.cc/article/p-tziwvfuh-e.html

vb.net Delegate-入门级

http://www.jb51.cc/article/p-mnoyizmo-e.html

VB.NET多线程应用

http://www.jb51.cc/article/p-eblsucci-e.html

C#

System.Timers.Timer t = new System.Timers.Timer(10000);//实例化Timer类设置间隔间10000毫秒；
t.Elapsed += new System.Timers.ElapsedEventHandler(theout);//达间候执行事件；
t.AutoReset = true;//设置执行（false）直执行(true)；
t.Enabled = true;//否执行System.Timers.Timer.Elapsed事件；
public void theout(object source,System.Timers.ElapsedEventArgs e)
{
   MessageBox.Show("OK!");
}

VB.NET

Private Sub XX() 

    Dim t As New System.Timers.Timer 
   AddHandler t.Elapsed,AddressOf theout   t.AutoReset = True 
    t.Enabled = True 
End Sub 

Public Sub theout(ByVal source As Object,ByVal e As System.Timers.ElapsedEventArgs) 
    MsgBox("OK!") 
End Sub