home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / scottman / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  17.8 KB  |  651 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Scott Maniger"
  7.    ClientHeight    =   2520
  8.    ClientLeft      =   4530
  9.    ClientTop       =   4635
  10.    ClientWidth     =   4215
  11.    Height          =   3210
  12.    Icon            =   FORM1.FRX:0000
  13.    Left            =   4470
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   2520
  17.    ScaleWidth      =   4215
  18.    Top             =   4005
  19.    Width           =   4335
  20.    Begin PictureBox Picture1 
  21.       BackColor       =   &H00C0C0C0&
  22.       Height          =   495
  23.       Left            =   2160
  24.       ScaleHeight     =   465
  25.       ScaleWidth      =   3105
  26.       TabIndex        =   9
  27.       Top             =   2040
  28.       Width           =   3135
  29.    End
  30.    Begin CommandButton Command2 
  31.       Caption         =   "Run Special"
  32.       Height          =   495
  33.       Left            =   1080
  34.       TabIndex        =   1
  35.       TabStop         =   0   'False
  36.       Top             =   2040
  37.       Width           =   1095
  38.    End
  39.    Begin CommandButton Command1 
  40.       Caption         =   "Run"
  41.       Height          =   495
  42.       Left            =   0
  43.       TabIndex        =   0
  44.       TabStop         =   0   'False
  45.       Top             =   2040
  46.       Width           =   1095
  47.    End
  48.    Begin Label Label12 
  49.       Alignment       =   2  'Center
  50.       Caption         =   "WSetup"
  51.       Height          =   255
  52.       Left            =   4440
  53.       TabIndex        =   14
  54.       Top             =   1560
  55.       Width           =   735
  56.    End
  57.    Begin Image Image12 
  58.       Height          =   480
  59.       Left            =   4560
  60.       Picture         =   FORM1.FRX:0302
  61.       Top             =   1080
  62.       Width           =   480
  63.    End
  64.    Begin Label Label8 
  65.       Alignment       =   2  'Center
  66.       Caption         =   "Sys edit"
  67.       Height          =   255
  68.       Left            =   4440
  69.       TabIndex        =   13
  70.       Top             =   720
  71.       Width           =   720
  72.    End
  73.    Begin Image Image8 
  74.       Height          =   480
  75.       Left            =   4560
  76.       Picture         =   FORM1.FRX:0604
  77.       Top             =   240
  78.       Width           =   480
  79.    End
  80.    Begin Line Line1 
  81.       X1              =   4200
  82.       X2              =   4200
  83.       Y1              =   0
  84.       Y2              =   2040
  85.    End
  86.    Begin Label Label11 
  87.       Caption         =   "Dos Win"
  88.       Height          =   255
  89.       Left            =   2640
  90.       TabIndex        =   10
  91.       Top             =   1560
  92.       Width           =   735
  93.    End
  94.    Begin Image Image11 
  95.       Height          =   480
  96.       Left            =   2760
  97.       Picture         =   FORM1.FRX:0906
  98.       Top             =   1080
  99.       Width           =   480
  100.    End
  101.    Begin Label Label10 
  102.       Alignment       =   2  'Center
  103.       Caption         =   "Print"
  104.       Height          =   255
  105.       Left            =   1800
  106.       TabIndex        =   12
  107.       Top             =   1560
  108.       Width           =   735
  109.    End
  110.    Begin Image Image10 
  111.       Height          =   480
  112.       Left            =   1920
  113.       Picture         =   FORM1.FRX:0C08
  114.       Top             =   1080
  115.       Width           =   480
  116.    End
  117.    Begin Label Label9 
  118.       Alignment       =   2  'Center
  119.       Caption         =   "PifEditor"
  120.       Height          =   255
  121.       Left            =   960
  122.       TabIndex        =   11
  123.       Top             =   1560
  124.       Width           =   735
  125.    End
  126.    Begin Image Image9 
  127.       Height          =   480
  128.       Left            =   1080
  129.       Picture         =   FORM1.FRX:0F0A
  130.       Top             =   1080
  131.       Width           =   480
  132.    End
  133.    Begin Label Label7 
  134.       Alignment       =   2  'Center
  135.       Caption         =   "Calculat"
  136.       Height          =   255
  137.       Left            =   120
  138.       TabIndex        =   8
  139.       Top             =   1560
  140.       Width           =   735
  141.    End
  142.    Begin Image Image7 
  143.       Height          =   480
  144.       Left            =   240
  145.       Picture         =   FORM1.FRX:120C
  146.       Top             =   960
  147.       Width           =   480
  148.    End
  149.    Begin Label Label6 
  150.       Alignment       =   2  'Center
  151.       Caption         =   "Sound"
  152.       Height          =   255
  153.       Left            =   3480
  154.       TabIndex        =   7
  155.       Top             =   1560
  156.       Width           =   735
  157.    End
  158.    Begin Image Image6 
  159.       Height          =   480
  160.       Left            =   3600
  161.       Picture         =   FORM1.FRX:150E
  162.       Top             =   1080
  163.       Width           =   480
  164.    End
  165.    Begin Label Label5 
  166.       Alignment       =   2  'Center
  167.       Caption         =   "Write"
  168.       Height          =   255
  169.       Left            =   3480
  170.       TabIndex        =   6
  171.       Top             =   720
  172.       Width           =   735
  173.    End
  174.    Begin Image Image5 
  175.       Height          =   480
  176.       Left            =   3600
  177.       Picture         =   FORM1.FRX:1810
  178.       Top             =   240
  179.       Width           =   480
  180.    End
  181.    Begin Label Label4 
  182.       Alignment       =   2  'Center
  183.       Caption         =   "Recorder"
  184.       Height          =   255
  185.       Left            =   2640
  186.       TabIndex        =   5
  187.       Top             =   720
  188.       Width           =   735
  189.    End
  190.    Begin Image Image4 
  191.       Height          =   480
  192.       Left            =   2760
  193.       Picture         =   FORM1.FRX:1B12
  194.       Top             =   240
  195.       Width           =   480
  196.    End
  197.    Begin Label Label3 
  198.       Alignment       =   2  'Center
  199.       Caption         =   "Pbrush"
  200.       Height          =   255
  201.       Left            =   1800
  202.       TabIndex        =   4
  203.       Top             =   720
  204.       Width           =   735
  205.    End
  206.    Begin Image Image3 
  207.       Height          =   480
  208.       Left            =   1920
  209.       Picture         =   FORM1.FRX:1E14
  210.       Top             =   240
  211.       Width           =   480
  212.    End
  213.    Begin Label Label2 
  214.       Alignment       =   2  'Center
  215.       Caption         =   "Control"
  216.       Height          =   255
  217.       Left            =   960
  218.       TabIndex        =   3
  219.       Top             =   720
  220.       Width           =   735
  221.    End
  222.    Begin Image Image2 
  223.       Height          =   480
  224.       Left            =   1080
  225.       Picture         =   FORM1.FRX:2116
  226.       Top             =   240
  227.       Width           =   480
  228.    End
  229.    Begin Label Label1 
  230.       Alignment       =   2  'Center
  231.       BackColor       =   &H00FFFF8C&
  232.       Caption         =   "Winfile"
  233.       Height          =   255
  234.       Left            =   120
  235.       TabIndex        =   2
  236.       Top             =   720
  237.       Width           =   735
  238.    End
  239.    Begin Image Image1 
  240.       Height          =   480
  241.       Left            =   240
  242.       Picture         =   FORM1.FRX:2418
  243.       Top             =   240
  244.       Width           =   480
  245.    End
  246.    Begin Menu File 
  247.       Caption         =   "&File"
  248.       Begin Menu Run 
  249.          Caption         =   "Run"
  250.          Shortcut        =   ^R
  251.       End
  252.       Begin Menu RunSP 
  253.          Caption         =   "Run Special"
  254.       End
  255.       Begin Menu pif 
  256.          Caption         =   "Make a PIF file"
  257.          Shortcut        =   ^P
  258.       End
  259.       Begin Menu b1 
  260.          Caption         =   "-"
  261.       End
  262.       Begin Menu Exit 
  263.          Caption         =   "Exit"
  264.          Shortcut        =   %{BKSP}
  265.       End
  266.    End
  267.    Begin Menu op 
  268.       Caption         =   "&Options"
  269.       Begin Menu win 
  270.          Caption         =   "Windows"
  271.       End
  272.    End
  273.    Begin Menu help 
  274.       Caption         =   "&Help"
  275.       Begin Menu about 
  276.          Caption         =   "About"
  277.       End
  278.    End
  279. Sub about_Click ()
  280. form3.Left = screen.Width / 2 - form3.Width / 2
  281. form3.Top = screen.Height / 2 - form3.Height / 2
  282. form3.Visible = True
  283. End Sub
  284. Sub Command1_Click ()
  285. If z = 1 Then
  286. x = Shell(f1, 1)
  287. End If
  288. If z = 2 Then
  289. x = Shell(f2, 1)
  290. End If
  291. If z = 3 Then
  292.   x = Shell(f3, 1)
  293. End If
  294. If z = 4 Then
  295.   x = Shell(f4, 1)
  296. End If
  297. If z = 5 Then
  298.   x = Shell(f5, 1)
  299. End If
  300. If z = 6 Then
  301.   x = Shell(f6, 1)
  302. End If
  303. If z = 7 Then
  304.   x = Shell(f7, 1)
  305. End If
  306. If z = 9 Then
  307.   x = Shell(f9, 1)
  308. End If
  309. If z = 10 Then
  310.   x = Shell(f10, 1)
  311. End If
  312. If z = 11 Then
  313.   x = Shell(f11, 1)
  314. End If
  315. If z = 12 Then
  316.   x = Shell(f12, 1)
  317. End If
  318. End Sub
  319. Sub Command2_Click ()
  320. form2.Left = screen.Width / 2 - form2.Width / 2
  321. form2.Top = screen.Height / 2 - form2.Height / 2
  322. form2.Visible = True
  323. End Sub
  324. Sub Command3_Click ()
  325. form4.Left = screen.Width / 2 - form4.Width / 2
  326. form4.Top = screen.Height / 2 - form4.Height / 2
  327. form4.Visible = True
  328. End Sub
  329. Sub Exit_Click ()
  330. End Sub
  331. Sub Form_Load ()
  332. form1.Left = screen.Width / 2 - form1.Width / 2
  333. form1.Top = screen.Height / 2 - form1.Height / 2
  334. z = 1
  335. f1 = getwin$ + "winfile.exe"
  336. f2 = getwin$ + "control.exe"
  337. f3 = getwin$ + "Pbrush.exe"
  338. f4 = getwin$ + "Recorder.exe"
  339. f5 = getwin$ + "Write.exe"
  340. f6 = getwin$ + "soundrec.exe"
  341. f7 = getwin$ + "calc.exe"
  342. f8 = getsys$ + "sysedit.exe"
  343. f9 = getwin$ + "pifedit.exe"
  344. f10 = getwin$ + "printman.exe"
  345. f11 = getwin$ + "dosprmpt.pif"
  346. f12 = gaetwin$ + "setup.exe"
  347. End Sub
  348. Sub Image1_Click ()
  349. label1.BackColor = RGB(140, 255, 255)
  350. label2.BackColor = RGB(255, 255, 255)
  351. label3.BackColor = RGB(255, 255, 255)
  352. label4.BackColor = RGB(255, 255, 255)
  353. label5.BackColor = RGB(255, 255, 255)
  354. label6.BackColor = RGB(255, 255, 255)
  355. label7.BackColor = RGB(255, 255, 255)
  356. label8.BackColor = RGB(255, 255, 255)
  357. label9.BackColor = RGB(255, 255, 255)
  358. label10.BackColor = RGB(255, 255, 255)
  359. label11.BackColor = RGB(255, 255, 255)
  360. label12.BackColor = RGB(255, 255, 255)
  361. z = 1
  362. End Sub
  363. Sub Image1_DblClick ()
  364. x = Shell(f1, 1)
  365. End Sub
  366. Sub Image10_Click ()
  367. label1.BackColor = RGB(255, 255, 255)
  368. label2.BackColor = RGB(255, 255, 255)
  369. label3.BackColor = RGB(255, 255, 255)
  370. label4.BackColor = RGB(255, 255, 255)
  371. label5.BackColor = RGB(255, 255, 255)
  372. label6.BackColor = RGB(255, 255, 255)
  373. label7.BackColor = RGB(255, 255, 255)
  374. label8.BackColor = RGB(255, 255, 255)
  375. label9.BackColor = RGB(255, 255, 255)
  376. label10.BackColor = RGB(144, 255, 255)
  377. label11.BackColor = RGB(255, 255, 255)
  378. label12.BackColor = RGB(255, 255, 255)
  379. z = 10
  380. End Sub
  381. Sub Image10_DblClick ()
  382. x = Shell(f10, 2)
  383. End Sub
  384. Sub Image11_Click ()
  385. label1.BackColor = RGB(255, 255, 255)
  386. label2.BackColor = RGB(255, 255, 255)
  387. label3.BackColor = RGB(255, 255, 255)
  388. label4.BackColor = RGB(255, 255, 255)
  389. label5.BackColor = RGB(255, 255, 255)
  390. label6.BackColor = RGB(255, 255, 255)
  391. label7.BackColor = RGB(255, 255, 255)
  392. label8.BackColor = RGB(255, 255, 255)
  393. label9.BackColor = RGB(255, 255, 255)
  394. label10.BackColor = RGB(255, 255, 255)
  395. label11.BackColor = RGB(140, 255, 255)
  396. label12.BackColor = RGB(255, 255, 255)
  397. z = 11
  398. End Sub
  399. Sub Image11_DblClick ()
  400. x = Shell(f11, 1)
  401. End Sub
  402. Sub Image12_Click ()
  403. label1.BackColor = RGB(255, 255, 255)
  404. label2.BackColor = RGB(255, 255, 255)
  405. label3.BackColor = RGB(255, 255, 255)
  406. label4.BackColor = RGB(255, 255, 255)
  407. label5.BackColor = RGB(255, 255, 255)
  408. label6.BackColor = RGB(255, 255, 255)
  409. label7.BackColor = RGB(255, 255, 255)
  410. label8.BackColor = RGB(255, 255, 255)
  411. label9.BackColor = RGB(255, 255, 255)
  412. label10.BackColor = RGB(255, 255, 255)
  413. label11.BackColor = RGB(255, 255, 255)
  414. label12.BackColor = RGB(140, 255, 255)
  415. z = 12
  416. End Sub
  417. Sub Image12_DblClick ()
  418. x = Shell(f12, 1)
  419. End Sub
  420. Sub Image13_Click ()
  421. label1.BackColor = RGB(255, 255, 255)
  422. label2.BackColor = RGB(255, 255, 255)
  423. label3.BackColor = RGB(255, 255, 255)
  424. label4.BackColor = RGB(255, 255, 255)
  425. label5.BackColor = RGB(255, 255, 255)
  426. label6.BackColor = RGB(255, 255, 255)
  427. label7.BackColor = RGB(255, 255, 255)
  428. label8.BackColor = RGB(255, 255, 255)
  429. label9.BackColor = RGB(255, 255, 255)
  430. label10.BackColor = RGB(255, 255, 255)
  431. label11.BackColor = RGB(255, 255, 255)
  432. label12.BackColor = RGB(255, 255, 255)
  433. z = 13
  434. End Sub
  435. Sub Image13_DblClick ()
  436. x = Shell(f13, 1)
  437. End Sub
  438. Sub Image14_Click ()
  439. label1.BackColor = RGB(255, 255, 255)
  440. label2.BackColor = RGB(255, 255, 255)
  441. label3.BackColor = RGB(255, 255, 255)
  442. label4.BackColor = RGB(255, 255, 255)
  443. label5.BackColor = RGB(255, 255, 255)
  444. label6.BackColor = RGB(255, 255, 255)
  445. label7.BackColor = RGB(255, 255, 255)
  446. label8.BackColor = RGB(255, 255, 255)
  447. label9.BackColor = RGB(255, 255, 255)
  448. label10.BackColor = RGB(255, 255, 255)
  449. label11.BackColor = RGB(255, 255, 255)
  450. label12.BackColor = RGB(255, 255, 255)
  451. z = 14
  452. End Sub
  453. Sub Image14_DblClick ()
  454. x = Shell(f14, 1)
  455. End Sub
  456. Sub Image2_Click ()
  457. label1.BackColor = RGB(255, 255, 255)
  458. label2.BackColor = RGB(140, 255, 255)
  459. label3.BackColor = RGB(255, 255, 255)
  460. label4.BackColor = RGB(255, 255, 255)
  461. label5.BackColor = RGB(255, 255, 255)
  462. label6.BackColor = RGB(255, 255, 255)
  463. label8.BackColor = RGB(255, 255, 255)
  464. label7.BackColor = RGB(255, 255, 255)
  465. label9.BackColor = RGB(255, 255, 255)
  466. label10.BackColor = RGB(255, 255, 255)
  467. label12.BackColor = RGB(255, 255, 255)
  468. label11.BackColor = RGB(255, 255, 255)
  469. z = 2
  470. End Sub
  471. Sub Image2_DblClick ()
  472. x = Shell(f2, 1)
  473. End Sub
  474. Sub Image3_Click ()
  475. label1.BackColor = RGB(255, 255, 255)
  476. label2.BackColor = RGB(255, 255, 255)
  477. label3.BackColor = RGB(140, 255, 255)
  478. label4.BackColor = RGB(255, 255, 255)
  479. label5.BackColor = RGB(255, 255, 255)
  480. label6.BackColor = RGB(255, 255, 255)
  481. label8.BackColor = RGB(255, 255, 255)
  482. label7.BackColor = RGB(255, 255, 255)
  483. label9.BackColor = RGB(255, 255, 255)
  484. label10.BackColor = RGB(255, 255, 255)
  485. label11.BackColor = RGB(255, 255, 255)
  486. label12.BackColor = RGB(255, 255, 255)
  487. z = 3
  488. End Sub
  489. Sub Image3_DblClick ()
  490. x = Shell(f3, 1)
  491. End Sub
  492. Sub Image4_Click ()
  493. label1.BackColor = RGB(255, 255, 255)
  494. label2.BackColor = RGB(255, 255, 255)
  495. label3.BackColor = RGB(255, 255, 255)
  496. label4.BackColor = RGB(140, 255, 255)
  497. label5.BackColor = RGB(255, 255, 255)
  498. label6.BackColor = RGB(255, 255, 255)
  499. label7.BackColor = RGB(255, 255, 255)
  500. label8.BackColor = RGB(255, 255, 255)
  501. label9.BackColor = RGB(255, 255, 255)
  502. label10.BackColor = RGB(255, 255, 255)
  503. label12.BackColor = RGB(255, 255, 255)
  504. label11.BackColor = RGB(255, 255, 255)
  505. z = 4
  506. End Sub
  507. Sub Image4_DblClick ()
  508. x = Shell(f4, 2)
  509. End Sub
  510. Sub Image5_Click ()
  511. label1.BackColor = RGB(255, 255, 255)
  512. label2.BackColor = RGB(255, 255, 255)
  513. label3.BackColor = RGB(255, 255, 255)
  514. label4.BackColor = RGB(255, 255, 255)
  515. label5.BackColor = RGB(140, 255, 255)
  516. label6.BackColor = RGB(255, 255, 255)
  517. label7.BackColor = RGB(255, 255, 255)
  518. label8.BackColor = RGB(255, 255, 255)
  519. label9.BackColor = RGB(255, 255, 255)
  520. label10.BackColor = RGB(255, 255, 255)
  521. label12.BackColor = RGB(255, 255, 255)
  522. label11.BackColor = RGB(255, 255, 255)
  523. z = 5
  524. End Sub
  525. Sub Image5_DblClick ()
  526. x = Shell(f5, 1)
  527. End Sub
  528. Sub Image6_Click ()
  529. label1.BackColor = RGB(255, 255, 255)
  530. label2.BackColor = RGB(255, 255, 255)
  531. label3.BackColor = RGB(255, 255, 255)
  532. label4.BackColor = RGB(255, 255, 255)
  533. label5.BackColor = RGB(255, 255, 255)
  534. label6.BackColor = RGB(140, 255, 255)
  535. label7.BackColor = RGB(255, 255, 255)
  536. label8.BackColor = RGB(255, 255, 255)
  537. label9.BackColor = RGB(255, 255, 255)
  538. label10.BackColor = RGB(255, 255, 255)
  539. label12.BackColor = RGB(255, 255, 255)
  540. label11.BackColor = RGB(255, 255, 255)
  541. z = 6
  542. End Sub
  543. Sub Image6_DblClick ()
  544. x = Shell(f6, 1)
  545. End Sub
  546. Sub Image7_Click ()
  547. label1.BackColor = RGB(255, 255, 255)
  548. label2.BackColor = RGB(255, 255, 255)
  549. label3.BackColor = RGB(255, 255, 255)
  550. label4.BackColor = RGB(255, 255, 255)
  551. label5.BackColor = RGB(255, 255, 255)
  552. label6.BackColor = RGB(255, 255, 255)
  553. label7.BackColor = RGB(140, 255, 255)
  554. label8.BackColor = RGB(255, 255, 255)
  555. label9.BackColor = RGB(255, 255, 255)
  556. label10.BackColor = RGB(255, 255, 255)
  557. label12.BackColor = RGB(255, 255, 255)
  558. label11.BackColor = RGB(255, 255, 255)
  559. z = 7
  560. End Sub
  561. Sub Image7_DblClick ()
  562. x = Shell(f7, 1)
  563. End Sub
  564. Sub Image8_Click ()
  565. label1.BackColor = RGB(255, 255, 255)
  566. label2.BackColor = RGB(255, 255, 255)
  567. label3.BackColor = RGB(255, 255, 255)
  568. label4.BackColor = RGB(255, 255, 255)
  569. label5.BackColor = RGB(255, 255, 255)
  570. label6.BackColor = RGB(255, 255, 255)
  571. label7.BackColor = RGB(255, 255, 255)
  572. label8.BackColor = RGB(140, 255, 255)
  573. label9.BackColor = RGB(255, 255, 255)
  574. label10.BackColor = RGB(255, 255, 255)
  575. label11.BackColor = RGB(255, 255, 255)
  576. label12.BackColor = RGB(255, 255, 255)
  577. z = 8
  578. End Sub
  579. Sub Image8_DblClick ()
  580. x = Shell(f8, 1)
  581. End Sub
  582. Sub Image9_Click ()
  583. label1.BackColor = RGB(255, 255, 255)
  584. label2.BackColor = RGB(255, 255, 255)
  585. label3.BackColor = RGB(255, 255, 255)
  586. label4.BackColor = RGB(255, 255, 255)
  587. label5.BackColor = RGB(255, 255, 255)
  588. label6.BackColor = RGB(255, 255, 255)
  589. label7.BackColor = RGB(255, 255, 255)
  590. label8.BackColor = RGB(255, 255, 255)
  591. label9.BackColor = RGB(144, 255, 255)
  592. label10.BackColor = RGB(255, 255, 255)
  593. label12.BackColor = RGB(255, 255, 255)
  594. label11.BackColor = RGB(255, 255, 255)
  595. z = 9
  596. End Sub
  597. Sub Image9_DblClick ()
  598. x = Shell(f9, 1)
  599. End Sub
  600. Sub pif_Click ()
  601. x = Shell(getwin$ + "pifedit.exe", 1)
  602. End Sub
  603. Sub Run_Click ()
  604. If z = 1 Then
  605. x = Shell(f1, 1)
  606. End If
  607. If z = 2 Then
  608. x = Shell(f2, 1)
  609. End If
  610. If z = 3 Then
  611.   x = Shell(f3, 1)
  612. End If
  613. If z = 4 Then
  614.   x = Shell(f4, 1)
  615. End If
  616. If z = 5 Then
  617.   x = Shell(f5, 1)
  618. End If
  619. If z = 6 Then
  620.   x = Shell(f6, 1)
  621. End If
  622. If z = 7 Then
  623.   x = Shell(f7, 1)
  624. End If
  625. If z = 9 Then
  626.   x = Shell(f9, 1)
  627. End If
  628. If z = 10 Then
  629.   x = Shell(f10, 1)
  630. End If
  631. If z = 11 Then
  632.   x = Shell(f11, 1)
  633. End If
  634. If z = 12 Then
  635.   x = Shell(f12, 1)
  636. End If
  637. End Sub
  638. Sub RunSP_Click ()
  639. form2.Left = screen.Width / 2 - form2.Width / 2
  640. form2.Top = screen.Height / 2 - form2.Height / 2
  641. form2.Visible = True
  642. End Sub
  643. Sub win_Click ()
  644. If win.Checked = False Then
  645.   win.Checked = True
  646.   form1.Width = 5295
  647.   form1.Width = 4175
  648.   win.Checked = False
  649. End If
  650. End Sub
  651.