Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer
Declare Function GetFreeSpace Lib "Kernel" (ByVal fuFlags As Integer) As Long

Sub Befehl1_Click ()
    InfoForm.Hide
End Sub

Sub Form_Activate ()
    Dim VersNr As String, S As String, I As Integer, L As Long

    S = Hex$(db_lib_version())
    VersNr = Left$(S, 1)
    VersNr = VersNr + "."
    VersNr = VersNr + Right$(S, 2)
    InfoForm.LibVersion.Caption = VersNr

    I = GetFreeSystemResources(0)
    InfoForm.Sysres.Caption = Str$(I) + " %"

    L = GetFreeSpace(0) / 1024
    InfoForm.Sysheap.Caption = Str$(L) + " KB"
End Sub