module1.bas

vb试卷生成系统！能够生成8开vb考试试卷

Attribute VB_Name = "Module1"
Public picname, picbname As String
Public find1, find2 As Boolean
Public hmessage As Boolean
Public first, tipchang As Boolean
Public tuichu As Integer
Public recordnum, recordc, recordnum1, recordc1, recordnum2, recordc2 As Integer
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public fMainForm As frmMain
Sub Main()
    If Not first Then
        Set fMainForm = New frmMain
        fMainForm.Show
        first = True
    Else
        fMainForm.Show
    End If
End Sub
Public Sub Skin(f As Form, cN As cNeoCaption)
    cN.ActiveCaptionColor = &HFFFFFF
    cN.InActiveCaptionColor = &HC0C0C0
    cN.ActiveMenuColor = &H0&
    cN.ActiveMenuColorOver = &H0
    cN.InActiveMenuColor = &H0&
    cN.MenuBackgroundColor = RGB(207, 203, 207)
    cN.CaptionFont.Name = "宋体"
    cN.CaptionFont.Size = 9
    cN.MenuFont.Name = "宋体"
    cN.MenuFont.Size = 9
    cN.Attach f, f.PicCaption.Picture, f.PicBorder.Picture, 19, 20, 90, 140, 240, 400
    f.BackColor = RGB(207, 203, 207)
End Sub