判断一个控件是否注册

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Public Function GetIDEmode() As Boolean
    Dim strfileName As String
    Dim lngCount As Long
    strfileName = String(255, 0)
    lngCount = GetModuleFileName(App.hInstance, strfileName, 255)
    strfileName = Left(strfileName, lngCount)
    If UCase(Right(strfileName, 7)) <> "VB6.EXE" Then
        GetIDEmode = False   '否
    Else
        GetIDEmode = True   '是
    End If
    '//也可以获取VB的版本等信息
End Function

完成之后直接结束本vbIDE
Private Sub Timer1_Timer()
    '*************现在你不需要修改这里的任何代码***********

    On Error Resume Next

    If GetIDEmode = True Then   '开发环境
        Dim lhWndTop As Long
        Dim lhWnd As Long
        lhWnd = Me.hwnd
        lhWndTop = lhWnd
        Do While Not (lhWnd = 0)
            lhWnd = GetWindow(lhWnd, GW_OWNER)
            If Not (lhWnd = 0) Then