home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_2_94 / vbwin / vbx / main.frm < prev    next >
Text File  |  1995-02-27  |  1KB  |  55 lines
  1. VERSION 2.00
  2. Begin Form BaseForm 
  3.    BackColor       =   &H0000FFFF&
  4.    Caption         =   "Example Program"
  5.    ClientHeight    =   1245
  6.    ClientLeft      =   1395
  7.    ClientTop       =   6405
  8.    ClientWidth     =   5895
  9.    Height          =   1965
  10.    Left            =   1320
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1245
  13.    ScaleWidth      =   5895
  14.    Top             =   5760
  15.    Width           =   6045
  16.    Begin stormBkColor BkColor 
  17.       Height          =   420
  18.       IncludeInSysMenu=   -1  'True
  19.       Left            =   360
  20.       Top             =   360
  21.       WantCallback    =   -1  'True
  22.       Width           =   420
  23.    End
  24.    Begin Menu File 
  25.       Caption         =   "&Datei"
  26.       Begin Menu FileExit 
  27.          Caption         =   "&Ende"
  28.       End
  29.    End
  30.    Begin Menu About 
  31.       Caption         =   "&▄ber"
  32.    End
  33. End
  34. Option Explicit
  35.  
  36. Sub About_Click ()
  37.     AboutForm.Show (1)
  38. End Sub
  39.  
  40. Sub BkColor_ColorBackground ()
  41.     ParaDlg.Show (1)
  42. End Sub
  43.  
  44. Sub BkColor_WndProc (wMsg As Integer, wParam As Integer, lParam As Long, bPreDefault As Integer, lResult As Long, Done As Integer)
  45.     Beep
  46.     If wMsg >= WM_USER Then
  47.         Debug.Print "Message="; wMsg, "bPreDefault=", bPreDefault
  48.         End If
  49. End Sub
  50.  
  51. Sub FileExit_Click ()
  52.     Unload BaseForm
  53. End Sub
  54.  
  55.