VERSION 4.00
Begin VB.Form DevMDI 
   BackColor       =   &H00C0C0C0&
   Caption         =   "Manage Devices"
   ClientHeight    =   2745
   ClientLeft      =   1365
   ClientTop       =   3390
   ClientWidth     =   6360
   Height          =   3150
   Left            =   1305
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   2745
   ScaleWidth      =   6360
   Top             =   3045
   Width           =   6480
   Begin Threed.SSPanel toolbar 
      Align           =   1  'Align Top
      Height          =   405
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   6360
      _version        =   65536
      _extentx        =   11218
      _extenty        =   714
      _stockprops     =   15
   End
   Begin GraphLib.Graph DevChart 
      Height          =   2085
      Left            =   270
      TabIndex        =   0
      Top             =   270
      Width           =   5775
      _version        =   65536
      _extentx        =   10186
      _extenty        =   3678
      _stockprops     =   96
      autoinc         =   0
      bottomtitle     =   "Devices"
      graphstyle      =   3
      graphtype       =   4
      legendstyle     =   1
      numsets         =   2
      randomdata      =   1
      colordata       =   0
      extradata       =   0
      extradata[]     =   0
      fontfamily      =   4
      fontfamily[0]   =   2
      fontfamily[1]   =   2
      fontfamily[2]   =   2
      fontfamily[3]   =   2
      fontsize        =   4
      fontsize[0]     =   300
      fontsize[1]     =   150
      fontsize[2]     =   100
      fontsize[3]     =   100
      fontstyle       =   4
      fontstyle[0]    =   2
      fontstyle[1]    =   2
      fontstyle[2]    =   2
      fontstyle[3]    =   2
      graphdata       =   0
      graphdata[]     =   5
      labeltext       =   0
      legendtext      =   2
      legendtext[0]   =   "Space Used"
      legendtext[1]   =   "Space Available"
      patterndata     =   0
      symboldata      =   0
      xposdata        =   0
      xposdata[]      =   0
   End
End
Attribute VB_Name = "DevMDI"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Form_Load()
  ' set form title
  DevMDI.Caption = "\\" + OServer.Name + "- Devices"
    
  Dim ii As Integer
  ' create Device object
  Set MyDevice = CreateObject("SQLOLE.Device")
  ' set chart parameters
  
  DevChart.NumPoints = OServer.Devices.Count
  DevChart.NumSets = 2
  DevChart.ThisSet = 1
  ii = 0
  
  ' chart all Devices on the OServer
  For Each MyDevice In OServer.Devices
        ii = ii + 1
        DevChart.ThisPoint = ii
        DevChart.LabelText = MyDevice.Name
        spac = MyDevice.SpaceAvailable
        DevChart.ThisSet = 1
        DevChart.GraphData = MyDevice.Size - spac
        DevChart.ThisSet = 2
        DevChart.GraphData = spac
  Next

End Sub

Private Sub Form_Resize()
' resize chart to size of MDI
If WindowState <> 1 Then
    DevChart.Left = 0
    DevChart.Top = Toolbar.Height
    DevChart.Width = DevMDI.Width
    DevChart.Height = DevMDI.Height - 400 - Toolbar.Height
End If

End Sub