form1.frm

很好的教程原代码！

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5490
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7965
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   5490
   ScaleWidth      =   7965
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   735
      Left            =   3360
      TabIndex        =   0
      Top             =   2520
      Width           =   1815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' CreateEllipticRgn 函数声明
Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long _
) As Long
        ' SetWindowRgn 函数声明
        Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean _
) As Long
'
        'Command1单击事件的代码
Private Sub Command1_Click()
    Dim hRgn As Long
    Dim lRes As Long
    hRgn = CreateEllipticRgn(0, 0, 400, 300)
    ' 返回一个椭圆形句柄
    lRes = SetWindowRgn(Me.hWnd, hRgn, True)
    '  设置椭圆形窗体
    Command1.Visible = False
    '  隐藏按钮
End Sub
'
        ' 窗体的单击事件
Private Sub Form_Click()
    End
    ' 结束程序
End Sub