home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / ezdialup.arj / EZ4VB.ZIP / DIALUP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-06  |  1.2 KB  |  44 lines
  1. VERSION 2.00
  2. Begin Form frmMainForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "EZDialup - VB Example"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1770
  8.    ClientWidth     =   7365
  9.    Height          =   4710
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    WindowState     =   2  'Maximized
  17.    Begin Menu mnuFile 
  18.       Caption         =   "&File"
  19.       Begin Menu mnuConnect 
  20.          Caption         =   "&Connect"
  21.       End
  22.       Begin Menu mnuSep1 
  23.          Caption         =   "-"
  24.       End
  25.       Begin Menu mnuFileExit 
  26.          Caption         =   "E&xit"
  27.       End
  28.    End
  29. Option Explicit
  30. Sub Form_Unload (Cancel As Integer)
  31.     End
  32. End Sub
  33. Sub mnuConnect_Click ()
  34.     frmConnect.Show
  35.     Me.Enabled = False
  36.     'VB 3.0 won't let us access methods in another form, so
  37.     'we simulate a 'click' on the cmdConnect button on frmConnect
  38.     'to invoke it's _Click event.
  39.     frmConnect!cmdConnect.Value = True
  40. End Sub
  41. Sub mnuFileExit_Click ()
  42.     End
  43. End Sub
  44.