home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Form1.frm < prev    next >
Text File  |  1999-10-08  |  952b  |  36 lines
  1. VERSION 5.00
  2. Begin VB.Form MainForm 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12. End
  13. Attribute VB_Name = "MainForm"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = False
  16. Attribute VB_PredeclaredId = True
  17. Attribute VB_Exposed = False
  18. Dim prg As ArCon.ArCon
  19.  
  20. Private Sub Form_Load()
  21.     Set prg = New ArCon.ArCon
  22.     prg.StartMe hWnd, ""
  23.     
  24.     Dim o As ArCon.Object3D
  25.     For Each o In prg.DesignObjects
  26.         If Not o.IsInternalObject() Then
  27.             Dim tn As ArCon.TextureName
  28.             For Each tn In o.GetTextureCollection()
  29.                 tn.Name = ">BODEN\KINDER\Tkind07.bmp"
  30.             Next
  31.         End If
  32.     Next
  33.     prg.Redraw3DViews
  34.     Unload Me
  35. End Sub
  36.