VERSION 5.00 Object = "{2037E3AD-18D6-101C-8158-221E4B551F8E}#5.0#0"; "Vsocx32.ocx" Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX" Object = "{562E3E04-2C31-4ECE-83F4-4017EEE51D40}#8.0#0"; "todg8.ocx" Begin VB.Form MyVBForm Caption = "My Form Caption" ClientHeight = 6360 ClientLeft = 225 ClientTop = 570 ClientWidth = 7890 BeginProperty Font Name = "Tahoma" Size = 7.5 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" ScaleHeight = 6360 ScaleWidth = 7890 ShowInTaskbar = 0 'False Begin VsOcxLib.VideoSoftIndexTab VideoSoftIndexTab1 Height = 2655 Left = 1320 TabIndex = 9 Top = 3480 Width = 5895 _Version = 327680 _ExtentX = 10398 _ExtentY = 4683 _StockProps = 102 Caption = "0-Tab|Calculation|Input|Current Place|Colors|Atlas Setup|Aspects|Graphic Logo|Logo|Misc." AutoScroll = -1 'True DogEars = -1 'True New3D = -1 'True End Begin VB.Timer Timer1 Left = 3000 Top = 1320 End Begin VsOcxLib.VideoSoftElastic Name_VideoSoftElastic Height = 495 Left = 240 TabIndex = 0 Top = 2280 Width = 2775 _Version = 327680 _ExtentX = 4895 _ExtentY = 873 _StockProps = 70 Caption = "Caption_VideoSoftElastic_KRAKOV " End Begin MSComCtl2.DTPicker DTPicker1 Height = 375 Left = 360 TabIndex = 6 Top = 1080 Width = 2295 _ExtentX = 4048 _ExtentY = 661 _Version = 393216 Format = 53149697 CurrentDate = 45249 End Begin VB.Frame gbCaption Caption = "Frame Caption" Height = 495 Left = 360 TabIndex = 5 Top = 1680 Width = 1935 End Begin VB.TextBox edText Height = 375 Left = 2400 TabIndex = 4 Text = "This is a text in TEdit" Top = 1800 Width = 1455 End Begin VB.CheckBox cbCheckBox Caption = "CheckBox Caption" Height = 495 Left = 2760 TabIndex = 3 Top = 840 Width = 1935 End Begin VB.CommandButton btExit Caption = "Click to Exit" Height = 600 Left = 6000 TabIndex = 1 Top = 1200 Width = 1455 End Begin VsOcxLib.VideoSoftElastic elasBmp Height = 750 Index = 1 Left = 1560 TabIndex = 7 Top = 0 Width = 6615 _Version = 327680 _ExtentX = 11668 _ExtentY = 1323 _StockProps = 70 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BorderWidth = 0 BevelOuter = 0 BevelOuterWidth = 0 Picture = "MyVBForm.frx":0000 PicturePos = 9 End Begin VsOcxLib.VideoSoftElastic elasBmp Height = 750 Index = 4 Left = 0 TabIndex = 8 Top = 0 Width = 1545 _Version = 327680 _ExtentX = 2725 _ExtentY = 1323 _StockProps = 70 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BorderWidth = 0 BevelOuter = 0 BevelOuterWidth = 0 Picture = "MyVBForm.frx":8DF6 PicturePos = 10 End Begin TrueOleDBGrid80.TDBGrid TDBGrid1 DragIcon = "MyVBForm.frx":CA00 Height = 3120 Left = 240 TabIndex = 10 Top = 3120 Width = 7095 _ExtentX = 12515 _ExtentY = 5503 _LayoutType = 4 _RowHeight = -2147483647 _WasPersistedAsPixels= 0 Columns(0)._VlistStyle= 0 Columns(0)._MaxComboItems= 5 Columns(0).Caption= "IX" Columns(0).DataField= "" Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(1)._VlistStyle= 0 Columns(1)._MaxComboItems= 5 Columns(1).Caption= "Aspect Name" Columns(1).DataField= "" Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(2)._VlistStyle= 0 Columns(2)._MaxComboItems= 5 Columns(2).Caption= "Abr." Columns(2).DataField= "" Columns(2)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(3)._VlistStyle= 0 Columns(3)._MaxComboItems= 5 Columns(3).Caption= "Angle" Columns(3).DataField= "" Columns(3)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(4)._VlistStyle= 0 Columns(4)._MaxComboItems= 5 Columns(4).Caption= "Sun" Columns(4).DataField= "" Columns(4)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(5)._VlistStyle= 0 Columns(5)._MaxComboItems= 5 Columns(5).Caption= "Moon" Columns(5).DataField= "" Columns(5)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(6)._VlistStyle= 0 Columns(6)._MaxComboItems= 5 Columns(6).Caption= "Planets" Columns(6).DataField= "" Columns(6)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(7)._VlistStyle= 0 Columns(7)._MaxComboItems= 5 Columns(7).Caption= "Enter" Columns(7).DataField= "" Columns(7)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(8)._VlistStyle= 0 Columns(8)._MaxComboItems= 5 Columns(8).Caption= "Leave" Columns(8).DataField= "" Columns(8)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(9)._VlistStyle= 0 Columns(9)._MaxComboItems= 5 Columns(9).Caption= "Glyph" Columns(9).DataField= "" Columns(9)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns(10)._VlistStyle= 0 Columns(10)._MaxComboItems= 5 Columns(10).Caption= "Fract" Columns(10).DataField= "" Columns(10)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3" Columns.Count = 11 Splits(0)._UserFlags= 0 Splits(0).MarqueeStyle= 4 Splits(0).RecordSelectorWidth= 979 Splits(0)._SavedRecordSelectors= -1 'True Splits(0)._GSX_SAVERECORDSELECTORS= 0 Splits(0).ScrollBars= 3 Splits(0).DividerColor= 15790320 Splits(0).SpringMode= 0 'False Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3" Splits(0)._ColumnProps(0)= "Columns.Count=11" Splits(0)._ColumnProps(1)= "Column(0).Width=661" Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0" Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=556" Splits(0)._ColumnProps(4)= "Column(0)._EditAlways=0" Splits(0)._ColumnProps(5)= "Column(0)._ColStyle=66081" Splits(0)._ColumnProps(6)= "Column(0).Order=1" Splits(0)._ColumnProps(7)= "Column(1).Width=2672" Splits(0)._ColumnProps(8)= "Column(1).DividerColor=0" Splits(0)._ColumnProps(9)= "Column(1)._WidthInPix=2566" Splits(0)._ColumnProps(10)= "Column(1)._EditAlways=0" Splits(0)._ColumnProps(11)= "Column(1)._ColStyle=66080" Splits(0)._ColumnProps(12)= "Column(1).Order=2" Splits(0)._ColumnProps(13)= "Column(2).Width=979" Splits(0)._ColumnProps(14)= "Column(2).DividerColor=0" Splits(0)._ColumnProps(15)= "Column(2)._WidthInPix=873" Splits(0)._ColumnProps(16)= "Column(2)._EditAlways=0" Splits(0)._ColumnProps(17)= "Column(2)._ColStyle=66080" Splits(0)._ColumnProps(18)= "Column(2).Order=3" Splits(0)._ColumnProps(19)= "Column(3).Width=2037" Splits(0)._ColumnProps(20)= "Column(3).DividerColor=0" Splits(0)._ColumnProps(21)= "Column(3)._WidthInPix=1931" Splits(0)._ColumnProps(22)= "Column(3)._EditAlways=0" Splits(0)._ColumnProps(23)= "Column(3)._ColStyle=66080" Splits(0)._ColumnProps(24)= "Column(3).Order=4" Splits(0)._ColumnProps(25)= "Column(4).Width=1376" Splits(0)._ColumnProps(26)= "Column(4).DividerColor=0" Splits(0)._ColumnProps(27)= "Column(4)._WidthInPix=1270" Splits(0)._ColumnProps(28)= "Column(4)._EditAlways=0" Splits(0)._ColumnProps(29)= "Column(4)._ColStyle=66080" Splits(0)._ColumnProps(30)= "Column(4).Order=5" Splits(0)._ColumnProps(31)= "Column(5).Width=1376" Splits(0)._ColumnProps(32)= "Column(5).DividerColor=0" Splits(0)._ColumnProps(33)= "Column(5)._WidthInPix=1270" Splits(0)._ColumnProps(34)= "Column(5)._EditAlways=0" Splits(0)._ColumnProps(35)= "Column(5)._ColStyle=66080" Splits(0)._ColumnProps(36)= "Column(5).Order=6" Splits(0)._ColumnProps(37)= "Column(6).Width=1376" Splits(0)._ColumnProps(38)= "Column(6).DividerColor=0" Splits(0)._ColumnProps(39)= "Column(6)._WidthInPix=1270" Splits(0)._ColumnProps(40)= "Column(6)._EditAlways=0" Splits(0)._ColumnProps(41)= "Column(6)._ColStyle=66080" Splits(0)._ColumnProps(42)= "Column(6).Order=7" Splits(0)._ColumnProps(43)= "Column(7).Width=1376" Splits(0)._ColumnProps(44)= "Column(7).DividerColor=0" Splits(0)._ColumnProps(45)= "Column(7)._WidthInPix=1270" Splits(0)._ColumnProps(46)= "Column(7)._EditAlways=0" Splits(0)._ColumnProps(47)= "Column(7)._ColStyle=66080" Splits(0)._ColumnProps(48)= "Column(7).Order=8" Splits(0)._ColumnProps(49)= "Column(8).Width=1376" Splits(0)._ColumnProps(50)= "Column(8).DividerColor=0" Splits(0)._ColumnProps(51)= "Column(8)._WidthInPix=1270" Splits(0)._ColumnProps(52)= "Column(8)._EditAlways=0" Splits(0)._ColumnProps(53)= "Column(8)._ColStyle=66080" Splits(0)._ColumnProps(54)= "Column(8).Order=9" Splits(0)._ColumnProps(55)= "Column(9).Width=1138" Splits(0)._ColumnProps(56)= "Column(9).DividerColor=0" Splits(0)._ColumnProps(57)= "Column(9)._WidthInPix=1032" Splits(0)._ColumnProps(58)= "Column(9)._EditAlways=0" Splits(0)._ColumnProps(59)= "Column(9)._ColStyle=66081" Splits(0)._ColumnProps(60)= "Column(9).Order=10" Splits(0)._ColumnProps(61)= "Column(10).Width=1138" Splits(0)._ColumnProps(62)= "Column(10).DividerColor=0" Splits(0)._ColumnProps(63)= "Column(10)._WidthInPix=1032" Splits(0)._ColumnProps(64)= "Column(10)._EditAlways=0" Splits(0)._ColumnProps(65)= "Column(10)._ColStyle=66080" Splits(0)._ColumnProps(66)= "Column(10).Order=11" Splits.Count = 1 PrintInfos(0)._StateFlags= 0 PrintInfos(0).Name= "piInternal 0" PrintInfos(0).PageHeaderFont= "Size=9.75,Charset=204,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=Verdana" PrintInfos(0).PageFooterFont= "Size=9.75,Charset=204,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=Verdana" PrintInfos(0).PageHeaderHeight= 0 PrintInfos(0).PageFooterHeight= 0 PrintInfos.Count= 1 Appearance = 0 DataMode = 3 DefColWidth = 0 HeadLines = 1 FootLines = 1 MultipleLines = 0 CellTipsWidth = 0 DeadAreaBackColor= 15790320 RowDividerColor = 15790320 RowSubDividerColor= 15790320 DirectionAfterEnter= 1 DirectionAfterTab= 1 MaxRows = 250000 ViewColumnCaptionWidth= 0 ViewColumnWidth = 0 _PropDict = "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2" _StyleDefs(0) = "_StyleRoot:id=0,.parent=-1,.alignment=0,.valignment=0,.bgcolor=&H80000005&" _StyleDefs(1) = ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0" _StyleDefs(2) = ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0" _StyleDefs(3) = ":id=0,.borderColor=&H80000005&,.borderType=6,.bold=0,.fontsize=825,.italic=0" _StyleDefs(4) = ":id=0,.underline=0,.strikethrough=0,.charset=0" _StyleDefs(5) = ":id=0,.fontname=Tahoma" _StyleDefs(6) = "Style:id=1,.parent=0,.namedParent=33,.bold=0,.fontsize=975,.italic=0" _StyleDefs(7) = ":id=1,.underline=0,.strikethrough=0,.charset=204" _StyleDefs(8) = ":id=1,.fontname=Verdana" _StyleDefs(9) = "CaptionStyle:id=4,.parent=2,.namedParent=37" _StyleDefs(10) = "HeadingStyle:id=2,.parent=1,.namedParent=34,.bgcolor=&H8000000D&" _StyleDefs(11) = ":id=2,.fgcolor=&H80000005&" _StyleDefs(12) = "FooterStyle:id=3,.parent=1,.namedParent=35" _StyleDefs(13) = "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&" _StyleDefs(14) = "SelectedStyle:id=6,.parent=1,.namedParent=36" _StyleDefs(15) = "EditorStyle:id=7,.parent=1" _StyleDefs(16) = "HighlightRowStyle:id=8,.parent=1,.namedParent=38" _StyleDefs(17) = "EvenRowStyle:id=9,.parent=1,.namedParent=39" _StyleDefs(18) = "OddRowStyle:id=10,.parent=1,.namedParent=40" _StyleDefs(19) = "RecordSelectorStyle:id=11,.parent=2,.namedParent=41" _StyleDefs(20) = "FilterBarStyle:id=12,.parent=1,.namedParent=42" _StyleDefs(21) = "Splits(0).Style:id=43,.parent=1" _StyleDefs(22) = "Splits(0).CaptionStyle:id=52,.parent=4" _StyleDefs(23) = "Splits(0).HeadingStyle:id=44,.parent=2" _StyleDefs(24) = "Splits(0).FooterStyle:id=45,.parent=3" _StyleDefs(25) = "Splits(0).InactiveStyle:id=46,.parent=5" _StyleDefs(26) = "Splits(0).SelectedStyle:id=48,.parent=6" _StyleDefs(27) = "Splits(0).EditorStyle:id=47,.parent=7" _StyleDefs(28) = "Splits(0).HighlightRowStyle:id=49,.parent=8" _StyleDefs(29) = "Splits(0).EvenRowStyle:id=50,.parent=9" _StyleDefs(30) = "Splits(0).OddRowStyle:id=51,.parent=10" _StyleDefs(31) = "Splits(0).RecordSelectorStyle:id=53,.parent=11" _StyleDefs(32) = "Splits(0).FilterBarStyle:id=54,.parent=12" _StyleDefs(33) = "Splits(0).Columns(0).Style:id=28,.parent=43,.alignment=2,.valignment=1" _StyleDefs(34) = "Splits(0).Columns(0).HeadingStyle:id=25,.parent=44,.alignment=2" _StyleDefs(35) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=45" _StyleDefs(36) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=47" _StyleDefs(37) = "Splits(0).Columns(1).Style:id=32,.parent=43,.alignment=0,.valignment=1" _StyleDefs(38) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=44,.alignment=2" _StyleDefs(39) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=45" _StyleDefs(40) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=47" _StyleDefs(41) = "Splits(0).Columns(2).Style:id=58,.parent=43,.alignment=0,.valignment=1" _StyleDefs(42) = "Splits(0).Columns(2).HeadingStyle:id=55,.parent=44,.alignment=2" _StyleDefs(43) = "Splits(0).Columns(2).FooterStyle:id=56,.parent=45" _StyleDefs(44) = "Splits(0).Columns(2).EditorStyle:id=57,.parent=47" _StyleDefs(45) = "Splits(0).Columns(3).Style:id=62,.parent=43,.alignment=0,.valignment=1" _StyleDefs(46) = "Splits(0).Columns(3).HeadingStyle:id=59,.parent=44,.alignment=2" _StyleDefs(47) = "Splits(0).Columns(3).FooterStyle:id=60,.parent=45" _StyleDefs(48) = "Splits(0).Columns(3).EditorStyle:id=61,.parent=47" _StyleDefs(49) = "Splits(0).Columns(4).Style:id=66,.parent=43,.alignment=0,.valignment=1" _StyleDefs(50) = "Splits(0).Columns(4).HeadingStyle:id=63,.parent=44,.alignment=2" _StyleDefs(51) = "Splits(0).Columns(4).FooterStyle:id=64,.parent=45" _StyleDefs(52) = "Splits(0).Columns(4).EditorStyle:id=65,.parent=47" _StyleDefs(53) = "Splits(0).Columns(5).Style:id=70,.parent=43,.alignment=0,.valignment=1" _StyleDefs(54) = "Splits(0).Columns(5).HeadingStyle:id=67,.parent=44,.alignment=2" _StyleDefs(55) = "Splits(0).Columns(5).FooterStyle:id=68,.parent=45" _StyleDefs(56) = "Splits(0).Columns(5).EditorStyle:id=69,.parent=47" _StyleDefs(57) = "Splits(0).Columns(6).Style:id=74,.parent=43,.alignment=0,.valignment=1" _StyleDefs(58) = "Splits(0).Columns(6).HeadingStyle:id=71,.parent=44,.alignment=2" _StyleDefs(59) = "Splits(0).Columns(6).FooterStyle:id=72,.parent=45" _StyleDefs(60) = "Splits(0).Columns(6).EditorStyle:id=73,.parent=47" _StyleDefs(61) = "Splits(0).Columns(7).Style:id=78,.parent=43,.alignment=0,.valignment=1" _StyleDefs(62) = "Splits(0).Columns(7).HeadingStyle:id=75,.parent=44,.alignment=2" _StyleDefs(63) = "Splits(0).Columns(7).FooterStyle:id=76,.parent=45" _StyleDefs(64) = "Splits(0).Columns(7).EditorStyle:id=77,.parent=47" _StyleDefs(65) = "Splits(0).Columns(8).Style:id=82,.parent=43,.alignment=0,.valignment=1" _StyleDefs(66) = "Splits(0).Columns(8).HeadingStyle:id=79,.parent=44,.alignment=2" _StyleDefs(67) = "Splits(0).Columns(8).FooterStyle:id=80,.parent=45" _StyleDefs(68) = "Splits(0).Columns(8).EditorStyle:id=81,.parent=47" _StyleDefs(69) = "Splits(0).Columns(9).Style:id=86,.parent=43,.alignment=2,.valignment=1" _StyleDefs(70) = "Splits(0).Columns(9).HeadingStyle:id=83,.parent=44,.alignment=2" _StyleDefs(71) = "Splits(0).Columns(9).FooterStyle:id=84,.parent=45" _StyleDefs(72) = "Splits(0).Columns(9).EditorStyle:id=85,.parent=47" _StyleDefs(73) = "Splits(0).Columns(10).Style:id=90,.parent=43,.alignment=0,.valignment=1" _StyleDefs(74) = "Splits(0).Columns(10).HeadingStyle:id=87,.parent=44,.alignment=2" _StyleDefs(75) = "Splits(0).Columns(10).FooterStyle:id=88,.parent=45" _StyleDefs(76) = "Splits(0).Columns(10).EditorStyle:id=89,.parent=47" _StyleDefs(77) = "Named:id=33:Normal" _StyleDefs(78) = ":id=33,.parent=0" _StyleDefs(79) = "Named:id=34:Heading" _StyleDefs(80) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&" _StyleDefs(81) = ":id=34,.wraptext=-1" _StyleDefs(82) = "Named:id=35:Footing" _StyleDefs(83) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&" _StyleDefs(84) = "Named:id=36:Selected" _StyleDefs(85) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&" _StyleDefs(86) = "Named:id=37:Caption" _StyleDefs(87) = ":id=37,.parent=34,.alignment=2" _StyleDefs(88) = "Named:id=38:HighlightRow" _StyleDefs(89) = ":id=38,.parent=33,.bgcolor=&H80000008&,.fgcolor=&H80000005&" _StyleDefs(90) = "Named:id=39:EvenRow" _StyleDefs(91) = ":id=39,.parent=33,.bgcolor=&HFFFF00&" _StyleDefs(92) = "Named:id=40:OddRow" _StyleDefs(93) = ":id=40,.parent=33" _StyleDefs(94) = "Named:id=41:RecordSelector" _StyleDefs(95) = ":id=41,.parent=34" _StyleDefs(96) = "Named:id=42:FilterBar" _StyleDefs(97) = ":id=42,.parent=33" End Begin VB.Image Image Height = 975 Left = 4080 Top = 1920 Width = 1335 End Begin VB.Label lbLabel AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label Caption" Height = 180 Left = 5280 TabIndex = 2 Top = 960 Width = 915 End End Attribute VB_Name = "MyVBForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub btExit_Click() Unload Me End Sub