home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / teddy-1a / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-17  |  1.9 KB  |  66 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3435
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   3885
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   229
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   259
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Shape Shape1 
  18.       Height          =   1095
  19.       Index           =   3
  20.       Left            =   1320
  21.       Shape           =   2  'Oval
  22.       Top             =   960
  23.       Width           =   975
  24.    End
  25.    Begin VB.Shape Shape1 
  26.       Height          =   1095
  27.       Index           =   2
  28.       Left            =   1920
  29.       Shape           =   2  'Oval
  30.       Top             =   480
  31.       Width           =   975
  32.    End
  33.    Begin VB.Shape Shape1 
  34.       Height          =   1095
  35.       Index           =   1
  36.       Left            =   840
  37.       Shape           =   2  'Oval
  38.       Top             =   1200
  39.       Width           =   975
  40.    End
  41.    Begin VB.Shape Shape1 
  42.       Height          =   135
  43.       Index           =   0
  44.       Left            =   0
  45.       Shape           =   2  'Oval
  46.       Top             =   0
  47.       Width           =   15
  48.    End
  49. Attribute VB_Name = "frmMain"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. Private Sub AlwaysOnTop(TOF As Boolean)
  55.     If TOF = True Then
  56.         ' Turn on the TopMost attribute.
  57.         SetWindowPos hwnd, conHwndTopmost, 0, 0, 0, 0, 3
  58.     Else
  59.         ' Turn off the TopMost attribute.
  60.         SetWindowPos hwnd, conHwndNoTopmost, 0, 0, 0, 0, 3
  61.     End If
  62. End Sub
  63. Private Sub Form_Load()
  64.     Shapes Me
  65. End Sub
  66.