【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“MinForm.frm”一文，供大家参考学习

    VERSION 5.00
    Begin VB.Form MinForm 
       AutoRedraw      =   -1  'True
       BackColor       =   &H00C00000&
       BorderStyle     =   4  'Fixed ToolWindow
       Caption         =   "DownJet"
       ClientHeight    =   468
       ClientLeft      =   48
       ClientTop       =   276
       ClientWidth     =   1248
       FillColor       =   &H000000C0&
       FillStyle       =   0  'Solid
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       OLEDropMode     =   1  'Manual
       ScaleHeight     =   468
       ScaleWidth      =   1248
       ShowInTaskbar   =   0   'False
       StartUpPosition =   3  'Windows Default
    End
    Attribute VB_Name = "MinForm"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    
    
    Private Sub Form_DblClick()
    If frmDown.WindowState = vbNormal Then
        frmDown.WindowState = vbMinimized
    Else
        frmDown.WindowState = vbNormal
    End If
    End Sub
    
    Private Sub Form_Load()
    SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
    End Sub
    
    Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    If Data.GetFormat(vbCFText) Then
        If vbOK = MsgBox("确定要下载" & Data.GetData(vbCFText), vbOKCancel) Then
            frmDown.AddNewUrl Data.GetData(vbCFText)
            frmDown.WindowState = vbNormal
        End If
    End If
    End Sub