VERSION 5.00 Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx" Object = "{3738EEC0-3DAD-4B61-91BB-2B78CEAA6944}#1.0#0"; "VisiWinStudio2.ocx" Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX" Begin VB.Form frmShips BackColor = &H00000000& BorderStyle = 0 'Kein Caption = "Form1" ClientHeight = 11520 ClientLeft = 0 ClientTop = 0 ClientWidth = 15360 ControlBox = 0 'False LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False MouseIcon = "frmShips.frx":0000 Picture = "frmShips.frx":030A ScaleHeight = 11520 ScaleWidth = 15360 ShowInTaskbar = 0 'False StartUpPosition = 2 'Bildschirmmitte Begin VB.Timer Timer3 Enabled = 0 'False Interval = 50 Left = 960 Top = 390 End Begin MCI.MMControl mm Height = 465 Left = 1470 TabIndex = 12 Top = 180 Visible = 0 'False Width = 3540 _ExtentX = 6244 _ExtentY = 820 _Version = 393216 DeviceType = "" FileName = "" End Begin VB.Image Image1 Height = 900 Left = 3120 Stretch = -1 'True Top = 4020 Visible = 0 'False Width = 600 End Begin VWSLanguageLib.VWSIndex VWSIndex1 Height = 555 Left = 5040 Top = 660 Width = 5325 _cx = 9393 _cy = 979 BackStyle = 0 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 27.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = 26111 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Forms.frmShips" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Daten" End Begin VisiWinStudioLib.VWSKey vwKey11 Height = 675 Left = 10560 TabIndex = 11 Top = 8640 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.frmShips" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":11995 PictureDown = "frmShips.frx":159BB PictureDisabled = "frmShips.frx":159D7 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Alle" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey10 Height = 675 Left = 9180 TabIndex = 10 Top = 8610 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.frmShips" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":159F3 PictureDown = "frmShips.frx":1989D PictureDisabled = "frmShips.frx":198B9 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Cardas" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey9 Height = 675 Left = 7410 TabIndex = 9 Top = 8640 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.frmShips" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":198D5 PictureDown = "frmShips.frx":1D8FB PictureDisabled = "frmShips.frx":1D917 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Borg" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey8 Height = 675 Left = 5610 TabIndex = 8 Top = 8640 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.frmShips" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":1D933 PictureDown = "frmShips.frx":217DD PictureDisabled = "frmShips.frx":217F9 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Federation" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey7 Height = 675 Left = 3870 TabIndex = 7 Top = 8610 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.frmShips" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":21815 PictureDown = "frmShips.frx":256BF PictureDisabled = "frmShips.frx":256DB PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Romulan" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey6 Height = 675 Left = 2130 TabIndex = 6 Top = 8550 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.frmShips" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = 0 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":256F7 PictureDown = "frmShips.frx":2971D PictureDisabled = "frmShips.frx":29739 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Klingon" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey4 Height = 675 Left = 6330 TabIndex = 5 Top = 9630 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.FCentral" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":29755 PictureDown = "frmShips.frx":2D5FF PictureDisabled = "frmShips.frx":2D61B PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Daten" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey0 Height = 675 Left = 60 TabIndex = 4 Top = 10200 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.FCentral" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = 0 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":2D637 PictureDown = "frmShips.frx":3165D PictureDisabled = "frmShips.frx":31679 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Deutsch" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey2 Height = 675 Left = 2100 TabIndex = 3 Top = 10350 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.FCentral" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":31695 PictureDown = "frmShips.frx":3553F PictureDisabled = "frmShips.frx":3555B PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Gesam" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey5 Height = 675 Left = 7680 TabIndex = 2 Top = 10350 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.FCentral" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 15.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":35577 PictureDown = "frmShips.frx":3959D PictureDisabled = "frmShips.frx":395B9 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Ende" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey3 Height = 675 Left = 4050 TabIndex = 1 Top = 9690 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.FCentral" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":395D5 PictureDown = "frmShips.frx":3D5FB PictureDisabled = "frmShips.frx":3D617 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Sensoren" DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey vwKey1 Height = 675 Left = 1680 TabIndex = 0 Top = 9450 Width = 1695 _cx = 2990 _cy = 1191 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Forms.FCentral" Authorization = "-1" FontClass = "" RecipeMember = 0 'False UseMnemonic = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "StarTrek Film BT" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 0 ButtonStyle = 1 Alignment = 7 FocusRect = 0 'False Picture = "frmShips.frx":3D633 PictureDown = "frmShips.frx":414DD PictureDisabled = "frmShips.frx":414F9 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Key = 0 Caption = "Englisch" DownWhenDisabled= 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symCar2 Height = 480 Left = 6990 Top = 4920 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Cardas2X" VWItemY = "Ch1.Cardas2Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":41515 DistanceX = -420 DistanceY = -186 MaxValueX = 1000 MaxValueY = 1000 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symCar1 Height = 480 Left = 690 Top = 4920 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Cardas1X" VWItemY = "Ch1.Cardas1Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":41DEF DistanceX = 422 DistanceY = -188 MaxValueX = 400 MaxValueY = 400 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symBor1 Height = 480 Left = 690 Top = 1440 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.BorgX" VWItemY = "Ch1.BorgY" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":426C9 DistanceX = 892 DistanceY = -420 MaxValueX = 1000 MaxValueY = 1000 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symRom1 Height = 480 Left = 13980 Top = 4200 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Romul1X" VWItemY = "Ch1.Romul1Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":429E3 DistanceX = -182 DistanceY = 186 MaxValueX = 900 MaxValueY = 900 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symRom2 Height = 480 Left = 7680 Top = 1380 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Romul2X" VWItemY = "Ch1.Romul2Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":432BD DistanceX = 190 DistanceY = -306 MaxValueX = 600 MaxValueY = 600 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symFed1 Height = 480 Left = 14040 Top = 4920 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Fed1X" VWItemY = "Ch1.Fed1Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":43B97 DistanceX = -422 DistanceY = -188 MaxValueX = 800 MaxValueY = 800 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symKli3 Height = 480 Left = 750 Top = 4140 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Klingon3X" VWItemY = "Ch1.Klingon3Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":44471 DistanceX = 414 DistanceY = 182 MaxValueX = 400 MaxValueY = 400 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symFed2 Height = 480 Left = 7710 Top = 4920 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Fed2X" VWItemY = "Ch1.Fed2Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":44D4B DistanceX = 422 DistanceY = -184 MaxValueX = 300 MaxValueY = 300 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symKli2 Height = 480 Left = 6990 Top = 4230 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Klingon2X" VWItemY = "Ch1.Klingon2Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":45625 DistanceX = -422 DistanceY = 72 MaxValueX = 750 MaxValueY = 750 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End Begin VisiWinStudio2Lib.VWSSymbol symKli1 Height = 480 Left = 3510 Top = 1380 Width = 480 _cx = 847 _cy = 847 VWItem = "" VWItemX = "Ch1.Klingon1X" VWItemY = "Ch1.Klingon1Y" Blink = 0 Enabled = -1 'True AutoSize = 0 'False BitNumber = 0 Picture = "frmShips.frx":45EFF DistanceX = -190 DistanceY = -190 MaxValueX = 500 MaxValueY = 500 MinValueX = 0 MinValueY = 0 RecipeMember = 0 'False RecipeMemberX = 0 'False RecipeMemberY = 0 'False End End Attribute VB_Name = "frmShips" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim clsEx As clsExplo Dim gCol As New Collection Dim XPos As Single Dim YPos As Single Private Sub Form_Load() Dim iBlank As Integer Set curFrm = Me iBlank = (Me.Width - 6 * 1695) / 7 vwKey0.Top = 10260 vwKey0.Width = 1695 vwKey1.Top = 10260 vwKey1.Width = 1695 vwKey2.Top = 10260 vwKey2.Width = 1695 vwKey3.Top = 10260 vwKey3.Width = 1695 vwKey4.Top = 10260 vwKey4.Width = 1695 vwKey5.Top = 10260 vwKey5.Width = 1695 vwKey0.Left = iBlank vwKey1.Left = vwKey0.Left + vwKey0.Width + iBlank vwKey2.Left = vwKey1.Left + vwKey1.Width + iBlank vwKey3.Left = vwKey2.Left + vwKey2.Width + iBlank vwKey4.Left = vwKey3.Left + vwKey3.Width + iBlank vwKey5.Left = vwKey4.Left + vwKey4.Width + iBlank iBlank = (Me.Width - 6 * 1590) / 7 vwKey6.Top = 8600 vwKey6.Width = 1590 vwKey7.Top = 8600 vwKey7.Width = 1590 vwKey8.Top = 8600 vwKey8.Width = 1590 vwKey9.Top = 8600 vwKey9.Width = 1590 vwKey10.Top = 8600 vwKey10.Width = 1590 vwKey11.Top = 8600 vwKey11.Width = 1590 vwKey6.Left = iBlank vwKey7.Left = vwKey6.Left + vwKey6.Width + iBlank vwKey8.Left = vwKey7.Left + vwKey7.Width + iBlank vwKey9.Left = vwKey8.Left + vwKey8.Width + iBlank vwKey10.Left = vwKey9.Left + vwKey9.Width + iBlank vwKey11.Left = vwKey10.Left + vwKey10.Width + iBlank End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then Exit Sub If X > 600 And X < 14700 And Y > 1300 And Y < 8400 Then Play App.Path & "\data\sound\fire.wav", mm End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If X > 600 And X < 14700 And Y > 1300 And Y < 8400 Then Me.MousePointer = 99 Else Me.MousePointer = 0 End If End Sub Private Sub symBor1_Click() Explode symBor1 End Sub Private Sub symCar1_Click() Explode symCar1 End Sub Private Sub symCar2_Click() Explode symCar2 End Sub Private Sub symFed1_Click() Explode symFed1 End Sub Private Sub symFed2_Click() Explode symFed2 End Sub Private Sub symKli1_Click() Explode symKli1 End Sub Private Sub symKli2_Click() Explode symKli2 End Sub Private Sub symKli3_Click() Explode symKli3 End Sub Private Sub symRom1_Click() Explode symRom1 End Sub Private Sub symRom2_Click() Explode symRom2 End Sub Private Sub Timer3_Timer() For Each clsEx In gCol If clsEx.ShowNext = False Then gCol.Remove 1 If gCol.Count = 0 Then Timer3.Enabled = False SetPictures End If End If Next End Sub Private Sub SetPictures() Set symBor1.Picture = LoadPicture(App.Path & "\data\pictures\borgcub1.ico") Set symKli1.Picture = LoadPicture(App.Path & "\data\pictures\kling08.ico") Set symKli2.Picture = LoadPicture(App.Path & "\data\pictures\kling08.ico") Set symKli3.Picture = LoadPicture(App.Path & "\data\pictures\kling08.ico") Set symCar1.Picture = LoadPicture(App.Path & "\data\pictures\CARDASSI.ICO") Set symCar2.Picture = LoadPicture(App.Path & "\data\pictures\CARDASSI.ICO") Set symRom1.Picture = LoadPicture(App.Path & "\data\pictures\romwarb3.ico") Set symRom2.Picture = LoadPicture(App.Path & "\data\pictures\romwarb3.ico") Set symFed1.Picture = LoadPicture(App.Path & "\data\pictures\1701df1.ico") Set symFed2.Picture = LoadPicture(App.Path & "\data\pictures\1701df1.ico") End Sub Private Sub Explode(Symbol As Control) Play App.Path & "\data\sound\fire.wav", mm Dim clsEx As New clsExplo clsEx.Init Symbol gCol.Add clsEx If gCol.Count = 1 Then Timer3.Enabled = True End If Sleep 100 Play App.Path & "\data\sound\explo.wav", mm End Sub Private Sub vwKey0_Click() Play App.Path & "\data\sound\popup.wav", mm FCentral.Lang.Language = 1031 End Sub Private Sub vwKey1_Click() Play App.Path & "\data\sound\popup.wav", mm FCentral.Lang.Language = 1033 End Sub Private Sub vwKey10_Click() Play App.Path & "\data\sound\popup.wav", mm symKli1.Visible = False symKli2.Visible = False symKli3.Visible = False symFed1.Visible = False symFed2.Visible = False symRom1.Visible = False symRom2.Visible = False symBor1.Visible = False symCar1.Visible = True symCar2.Visible = True End Sub Private Sub vwKey11_Click() Play App.Path & "\data\sound\popup.wav", mm symKli1.Visible = True symKli2.Visible = True symKli3.Visible = True symFed1.Visible = True symFed2.Visible = True symRom1.Visible = True symRom2.Visible = True symBor1.Visible = True symCar1.Visible = True symCar2.Visible = True End Sub Private Sub vwKey2_Click() Play App.Path & "\data\sound\popup.wav", mm Sleep 750 Unload Me FCentral.Show End Sub Private Sub vwKey3_Click() Play App.Path & "\data\sound\popup.wav", mm End Sub Private Sub vwKey4_Click() Play App.Path & "\data\sound\popup.wav", mm Sleep 750 Unload Me frmData.Show End Sub Private Sub vwKey5_Click() Play App.Path & "\data\sound\popup.wav", mm Sleep 750 Unload Me EndProgram End Sub Private Sub vwKey6_Click() Play App.Path & "\data\sound\popup.wav", mm symKli1.Visible = True symKli2.Visible = True symKli3.Visible = True symFed1.Visible = False symFed2.Visible = False symRom1.Visible = False symRom2.Visible = False symBor1.Visible = False symCar1.Visible = False symCar2.Visible = False End Sub Private Sub vwKey7_Click() Play App.Path & "\data\sound\popup.wav", mm symKli1.Visible = False symKli2.Visible = False symKli3.Visible = False symFed1.Visible = False symFed2.Visible = False symRom1.Visible = True symRom2.Visible = True symBor1.Visible = False symCar1.Visible = False symCar2.Visible = False End Sub Private Sub vwKey8_Click() Play App.Path & "\data\sound\popup.wav", mm symKli1.Visible = False symKli2.Visible = False symKli3.Visible = False symFed1.Visible = True symFed2.Visible = True symRom1.Visible = False symRom2.Visible = False symBor1.Visible = False symCar1.Visible = False symCar2.Visible = False End Sub Private Sub vwKey9_Click() Play App.Path & "\data\sound\popup.wav", mm symKli1.Visible = False symKli2.Visible = False symKli3.Visible = False symFed1.Visible = False symFed2.Visible = False symRom1.Visible = False symRom2.Visible = False symBor1.Visible = True symCar1.Visible = False symCar2.Visible = False End Sub