vbAccelerator - Contents of code file: EditFrm.frm

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form EditFrm 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Form1"
   ClientHeight    =   3510
   ClientLeft      =   1155
   ClientTop       =   3855
   ClientWidth     =   4110
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   3510
   ScaleWidth      =   4110
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin ComctlLib.Toolbar Tb 
      Align           =   1  'Align Top
      Height          =   600
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4110
      _ExtentX        =   7250
      _ExtentY        =   1058
      ButtonWidth     =   2672
      ButtonHeight    =   953
      Wrappable       =   0   'False
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   1
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Test1 Modal MsBox"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin RichTextLib.RichTextBox Rt 
      Height          =   2295
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   4048
      _Version        =   393217
      BorderStyle     =   0
      Enabled         =   -1  'True
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"EditFrm.frx":0000
   End
   Begin ComctlLib.TabStrip Ts 
      Height          =   2775
      Left            =   0
      TabIndex        =   1
      Top             =   600
      Width           =   3855
      _ExtentX        =   6800
      _ExtentY        =   4895
      MultiRow        =   -1  'True
      _Version        =   327682
      BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
         NumTabs         =   2
         BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Test Tab"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Test Tab2"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "EditFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public SubForm As Object
Private Sub Form_GotFocus()
If Ts.Visible Then Ts.SetFocus
End Sub

Private Sub Form_Load()
 Left = -30000
 

 
End Sub


Private Sub Form_Resize()
    Ts.Move 0, Tb.Height, ScaleWidth, Abs(ScaleHeight - Tb.Height - 15)
    Rt.Move Ts.ClientLeft, Ts.ClientTop, Ts.ClientWidth, Ts.ClientHeight
End Sub


Private Sub Tb_ButtonClick(ByVal Button As ComctlLib.Button)
 If Button.Index = 1 Then
  If GetActiveWindow = hwnd Then
   MsgBox "Hopefully keyboard 'Focus-Activation' returns correctly to Floating
    ToolWindow;-)", vbApplicationModal Or vbCritical
  Else
   MsgBox "Hopefully keyboard 'Focus-Activation' returns correctly to Docked
    SubForm;-)", vbApplicationModal Or vbCritical
  End If
 End If
 
End Sub

Private Sub Ts_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
 Single)
If Button = vbLeftButton Then Ts.SetFocus
End Sub