home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / atl / beeper / beeper.frm < prev    next >
Text File  |  1998-03-26  |  854b  |  37 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3795
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6315
  8.    Height          =   4200
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3795
  12.    ScaleWidth      =   6315
  13.    Top             =   1170
  14.    Width           =   6435
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Beep"
  17.       Height          =   1095
  18.       Left            =   1680
  19.       TabIndex        =   0
  20.       Top             =   480
  21.       Width           =   2295
  22.    End
  23. End
  24. Attribute VB_Name = "Form1"
  25. Attribute VB_Creatable = False
  26. Attribute VB_Exposed = False
  27. Dim x As New Beeper
  28.  
  29. Private Sub Command1_Click()
  30. x.Beep
  31. Dim str As Variant
  32. For Each str In x
  33.     MsgBox str
  34. Next
  35. End Sub
  36.  
  37.