BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCount = 3
Tab1Caption = "&Show"
Tab1Key = "Show"
Tab2Caption = "&About"
Tab2Key = "About"
Tab3Caption = "E&xit"
Tab3Key = "Exit"
End
Begin VB.ListBox lstDemo
Height = 2550
IntegralHeight = 0 'False
ItemData = "FlatStripDemonstration.frx":014A
Left = 1755
List = "FlatStripDemonstration.frx":0170
TabIndex = 1
Top = 1755
Width = 3975
End
Begin FlatStripDemonstration.pucTextTip pucTextTip1
Height = 600
Left = 1755
TabIndex = 0
Top = 135
Width = 4020
_ExtentX = 7091
_ExtentY = 1058
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = "Welcome to the demonstration program for Ariad FlatStrip Control 5.1."
End
Begin VB.Label lblHdr
AutoSize = -1 'True
Caption = "Please select the demonstration you wish to view from the list below:"
Height = 390
Index = 2
Left = 1755
TabIndex = 3
Top = 900
Width = 2805
WordWrap = -1 'True
End
Begin VB.Label lblHdr
AutoSize = -1 'True
Caption = "Available &Demonstrations:"
Height = 195
Index = 1
Left = 1755
TabIndex = 2
Top = 1530
Width = 1875
End
Begin FlatStripDemonstration.pucLogoPane pucLogoPane1
Align = 3 'Align Left
Height = 5100
Left = 0
Top = 0
Width = 1500
_ExtentX = 2646
_ExtentY = 8996
Picture = "FlatStripDemonstration.frx":028A
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long