home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / vbstra / ownerfor.frm < prev    next >
Text File  |  1995-02-26  |  1KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form OwnerForm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "String Object Owner List"
  5.    ClientHeight    =   3345
  6.    ClientLeft      =   1245
  7.    ClientTop       =   2250
  8.    ClientWidth     =   8310
  9.    Height          =   3720
  10.    Left            =   1200
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3345
  13.    ScaleWidth      =   8310
  14.    Top             =   1920
  15.    Width           =   8400
  16.    Begin CommandButton biClose 
  17.       Caption         =   "&Close"
  18.       Height          =   345
  19.       Left            =   90
  20.       TabIndex        =   1
  21.       Top             =   60
  22.       Width           =   945
  23.    End
  24.    Begin ListBox Owners 
  25.       FontBold        =   0   'False
  26.       FontItalic      =   0   'False
  27.       FontName        =   "Fixedsys"
  28.       FontSize        =   9
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       Height          =   2730
  32.       Left            =   90
  33.       TabIndex        =   0
  34.       Top             =   480
  35.       Width           =   8115
  36.    End
  37. End
  38. Option Explicit
  39.  
  40. Sub biClose_Click ()
  41.  
  42.     Unload Me
  43.  
  44. End Sub
  45.  
  46. Sub Form_Load ()
  47.  
  48.     ShowCatStrOwners Owners
  49.  
  50. End Sub
  51.  
  52. Sub ShowCatStrOwners (HListBox As ListBox)
  53.  
  54. '    HListBox.Clear
  55. '
  56. '    If CatStrOwners(HListBox.hWnd) < 0 Then
  57. '
  58. '        MsgBox "Ooops"
  59. '
  60. '    End If
  61.  
  62. End Sub
  63.  
  64.