home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / ddewin32 / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  1.7 KB  |  58 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Modify Windows Program Manager"
  4.    ClientHeight    =   5940
  5.    ClientLeft      =   2940
  6.    ClientTop       =   1560
  7.    ClientWidth     =   6690
  8.    Height          =   6345
  9.    Left            =   2880
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5940
  12.    ScaleWidth      =   6690
  13.    Top             =   1215
  14.    Width           =   6810
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "&Add Item"
  17.       Height          =   495
  18.       Left            =   3480
  19.       TabIndex        =   3
  20.       Top             =   1440
  21.       Width           =   1335
  22.    End
  23.    Begin VB.TextBox Text2 
  24.       Height          =   495
  25.       Left            =   720
  26.       TabIndex        =   2
  27.       Text            =   "PROJECT1"
  28.       Top             =   1440
  29.       Width           =   2535
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "&Create Group"
  33.       Height          =   495
  34.       Left            =   3480
  35.       TabIndex        =   1
  36.       Top             =   480
  37.       Width           =   1335
  38.    End
  39.    Begin VB.TextBox Text1 
  40.       Height          =   495
  41.       Left            =   720
  42.       TabIndex        =   0
  43.       Text            =   "SAMPLE"
  44.       Top             =   480
  45.       Width           =   2535
  46.    End
  47. Attribute VB_Name = "Form1"
  48. Attribute VB_Creatable = False
  49. Attribute VB_Exposed = False
  50. Private Sub Command1_Click()
  51.          
  52.     CreateWinProgGroup Text1.Text
  53. End Sub
  54. Private Sub Command2_Click()
  55.      ShowWinProgGroup Text1.Text
  56.      CreateWinGroupItem Text1.Text, App.Path & "\Project1.exe", Text2.Text
  57. End Sub
  58.