Visual Basic

Option Explicit On

Public Class MainBase

    Private Structure POINTAPI
        Dim X As Long
        Dim Y As Long
    End Structure

    Private Structure RECT
        Dim Left As Long
        Dim Top As Long
        Dim Right As Long
        Dim Bottom As Long
    End Structure

    Private Declare Function ClipCursorRect Lib "user32" Alias "ClipCursor" (ByVal lpRect As RECT) As Integer
    Private Declare Sub ClipCursorClear Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long)
    Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, ByVal lpPoint As POINTAPI) As Long

    Public Function CursorClip(ByVal lLeft As Long, ByVal lTop As Long, ByVal lWidth As Long, ByVal lHeight As Long) As Integer
        Dim tR As New RECT()
        Dim tP As POINTAPI

        'Convert positions into a rectangle in pixels
        tR.Left = lLeft
        tR.Top = lTop
        tR.Right = (lLeft + lWidth)
        tR.Bottom = (lTop + lHeight)
        'Set the cursor clipping rectangle
        Return ClipCursorRect(tR)
    End Function

    Private Sub FormIsClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Call ClipCursorClear(0&)
    End Sub

    Private Sub FormLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If CursorClip(Me.Left, Me.Top, Me.Width, Me.Height) = 0 Then
            MsgBox("Failed")
        End If
    End Sub

End Class

Imports System
Imports System.Net
Imports System.Net.NetworkInformation

Public Class DUMeter
    Public Function InterfacesCount() as Integer
        InterfacesCount = NetworkInterface.GetAllNetworkInterfaces.Length
    End Function
End Class