OCXVB01.BAS

Attribute VB_Name = "AMSample" 
' ActiveMovie OCX Sample Code 
' Copyright (c) 1996 - 1997 Microsoft Corporation 
' All Rights Reserved 
     
Option Explicit 
 
' Counters for Timer, PositionChange, and StateChange events. 
Global g_cTimer As Long 
Global g_cPositionChange As Long 
Global g_cStateChange As Long 
 
' Tracks file name extension and whether or not a file is currently open. 
Global g_FileExtension As String 
Global g_FileOpened As Boolean 
     
 
Sub Main() 
 
    ' Main entry point to ActiveMovie OCX Sample application. 
     
    ' Load main form, position and show. 
    Load frmMain 
    With frmMain 
        .Top = Screen.Height * 0.05 
        .Left = Screen.Width * 0.05 
        .Visible = True 
    End With 
     
    ' Load viewer form but don't show yet. 
    Load frmViewer 
    With frmViewer 
        .Visible = False 
        .Left = frmMain.Left + frmMain.Width 
        .Top = frmMain.Top 
    End With 
     
    ' Initialize global variables. 
    g_FileOpened = False 
    g_FileExtension = "" 
     
End Sub 
 
 
Sub ResizeViewer() 
 
    ' Resize form to dimensions of ActiveMovie control + nonclient region. 
    With frmViewer 
        .Visible = False 
        .Height = .ActiveMovie1.Height + (.Height - .ScaleHeight) 
        .Width = .ActiveMovie1.Width + (.Width - .ScaleWidth) 
        .Visible = True 
    End With 
     
End Sub 
 
 
 
Sub UpdateStatusBar() 
 
    ' Update the main form status bar to show the current number of events. 
 
    With frmMain.StatusBar1 
         .Panels(1).Text = "Timer Events: " & g_cTimer 
         .Panels(2).Text = "State Changes: " & g_cStateChange 
         .Panels(3).Text = "Position Changes: " & g_cPositionChange 
    End With 
     
End Sub