'MDI-Form
Private Sub MDIForm_Load()
    StatusBar1.Panels("IP").Text = modipadress.GetIPAddress
    StatusBar1.Panels("MAC").Text = modmacadresse.MACAddress
    Call MDI
End Sub

Option Explicit
Private Type WSAData
    wVersion As Integer
    wHighVersion As Integer
    szDescription(0 To 256)
    szSystemStatus(0 To 128)
    wMaxSockets As Integer
    dwVendorInfo As Long
End Type
 
Private Declare Function WSAStartup Lib "WSOCK32.DLL" _
(ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long
 
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
 
Private Declare Function hostname Lib "WSOCK32.DLL" _
(ByVal szHost As String, ByVal dwHostLen As Long) As Long
 
Private Declare Function gethostbyname Lib "WSOCK32.DLL" _
(ByVal szHost As String) As Long
 
Private Declare Sub CopyMemoryIP Lib "kernel32" Alias _
   "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, _
   ByVal cbCopy As Long)
Private Function GetIPAddress() As String
    MsgBox "Wurde aufgerufen"
    Dim wsa As WSAData
    Dim rVal As Long
    Dim sHost As String * 256
    Dim lp As Long
    Dim lpa As Long
    Dim IpAdr(0 To 3) As Byte
 
    rVal = WSAStartup((2 + &H100), wsa)
    If rVal = 0 Then
        hostname sHost, 256
        lp = hostbyname(sHost)
        If lp Then
            CopyMemoryIP lpa, lp + 16, 4
            CopyMemoryIP IpAdr(0), lpa, 4
            GetIPAddress = CStr(IpAdr(0)) + "." + _
                                 CStr(IpAdr(1)) + "." + _
                                 CStr(IpAdr(2)) + "." + _
                                 CStr(IpAdr(3))
        End If
        WSACleanup
    End If
End Function

Option Explicit
 
Private Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA" _
    (ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) _
    As Long
 
Private Declare Function GetWindowLong Lib "user32" _
    Alias "GetWindowLongA" _
    (ByVal hwnd As Long, _
    ByVal nIndex As Long) _
    As Long
 
Private Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal bRevert As Long) _
    As Long
 
Public Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long) _
    As Long
 
Private Const WS_THICKFRAME = &H40000
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
 
Public Const MF_BYCOMMAND = &H0&
Public Const SC_CLOSE = &HF060
Public Const SC_MAXIMIZE = &HF030
Public Const SC_MINIMIZE = &HF020
Public Sub MDI()
    Dim MDIStyle As Long
    Dim MDI_Fest_Style As Long
    Dim Tele_Min As Long
    Dim Tele_Max As Long
 
End Sub