VERSION 5.00 Begin VB.Form fEmbedded BorderStyle = 0 'None Caption = "Form1" ClientHeight = 1950 ClientLeft = 0 ClientTop = 0 ClientWidth = 3120 LinkTopic = "Form1" ScaleHeight = 1950 ScaleWidth = 3120 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command1 Caption = "Command1" Height = 495 Left = 600 TabIndex = 0 Top = 720 Width = 1215 End End Attribute VB_Name = "fEmbedded" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Unload(Cancel As Integer) On Error Resume Next p_Plugin.EmbeddedEnd fEmbedded.hwnd 'MsgBox "UNLOADED", vbExclamation End Sub