home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / cssProject190224302001.psc / Misc / ProjectAnalyzer / TestApp / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-04-30  |  1.0 KB  |  37 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  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. Attribute VB_Name = "Form1"
  13. Attribute VB_GlobalNameSpace = False
  14. Attribute VB_Creatable = False
  15. Attribute VB_PredeclaredId = True
  16. Attribute VB_Exposed = False
  17. Option Explicit
  18. Public Sub LocalPublicProc(strMessage As String)
  19.     MsgBox strMessage
  20. End Sub
  21. Private Sub LocalPrivateProc(strMessage As String)
  22.     MsgBox strMessage
  23. End Sub
  24. Private Sub CallsToProcs()
  25.     LocalPublicProc ("test")
  26.     LocalPrivateProc ("test")
  27.     Me.LocalPublicProc ("test")
  28.     Me.LocalPrivateProc ("test")
  29.     Form2.Form2PublicProc ("test")
  30.     Form2.Form2PrivateProc ("test")
  31.     Form2PublicProc ("test")
  32.     GlobalPublicProc ("test")
  33.     Kill "nothing"
  34.     Name "a" As "b"
  35.     Shell ("file.exe")
  36. End Sub
  37.