Class EventTest
 
'Anderer Code
 
Private WithEvents IntTimer As New System.Windows.Forms.Timer
Public Event TimerMessungBeendet()
 
Private Sub IntTimer_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles IntTimer.Tick
        ReadValues()
        RaiseEvent TimerMessungBeendet()
    End Sub
End Class

Ahnungsloser ahnungsloser...