hidefrm.frm

一个好的VB时钟程度代码

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   0  'None
   Caption         =   "Clock"
   ClientHeight    =   480
   ClientLeft      =   5655
   ClientTop       =   0
   ClientWidth     =   465
   LinkTopic       =   "Form2"
   ScaleHeight     =   480
   ScaleWidth      =   465
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FF8080&
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   0
      Picture         =   "Hidefrm.frx":0000
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   0
      ToolTipText     =   "双击显示钟"
      Top             =   0
      Width           =   495
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Call PutWindowOnTop(Form2)
End Sub
Private Sub Picture1_DblClick()
    Form1.Show
    Unload Me
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = 1 Then
    Dim ret As Long
    ReleaseCapture
    ret& = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
  End If
End Sub