home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Habbo_Whac19512011262005.psc / Form4.frm < prev    next >
Text File  |  2002-01-01  |  1KB  |  41 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Furni Lister - Click the Furni to Modify"
  5.    ClientHeight    =   4110
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   9240
  9.    Icon            =   "Form4.frx":0000
  10.    LinkTopic       =   "Form4"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4110
  14.    ScaleWidth      =   9240
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.ListBox lstfurni 
  18.       Height          =   4155
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   9255
  23.    End
  24. End
  25. Attribute VB_Name = "Form4"
  26. Attribute VB_GlobalNameSpace = False
  27. Attribute VB_Creatable = False
  28. Attribute VB_PredeclaredId = True
  29. Attribute VB_Exposed = False
  30. Private Sub lstfurni_Click()
  31. modifyfurni (lstfurni.Text)
  32. End Sub
  33. Function FindAndReplace(InputString As String, FindString As String, ReplaceString As String) As String
  34. Dim Found() As String
  35. Found() = Split(InputString, FindString)
  36. If UBound(Found) = 0 Then FindAndReplace = InputString: Exit Function
  37. For I = 0 To UBound(Found)
  38. FindAndReplace = FindAndReplace & Found(I) & ReplaceString
  39. Next I
  40. End Function
  41.