home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / images1a / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-21  |  862 b   |  26 lines
  1. VERSION 5.00
  2. Begin VB.Form ShapedForm 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   3180
  5.    ClientLeft      =   120
  6.    ClientTop       =   120
  7.    ClientWidth     =   9180
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    Picture         =   "Form2.frx":0000
  11.    ScaleHeight     =   3180
  12.    ScaleWidth      =   9180
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15. Attribute VB_Name = "ShapedForm"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. 'The following code is only used to allow form draging
  21. 'from any part of it
  22. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  23.     ReleaseCapture
  24.     SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  25. End Sub
  26.