Category : Files from Magazines
Archive   : IVB938.ZIP
Filename : DECOMP.FRM

VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "Break MSKB file into components"
ClientHeight = 2808
ClientLeft = 1032
ClientTop = 1980
ClientWidth = 5220
Height = 3552
Icon = 0
Left = 984
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2808
ScaleWidth = 5220
Top = 1284
Width = 5316
Begin CommandButton cmdParse
Caption = "Go Parse File"
Default = -1 'True
Height = 300
Left = 1815
TabIndex = 0
Top = 2040
Width = 1335
End
Begin Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
ForeColor = &H00000080&
Height = 255
Left = 315
TabIndex = 3
Top = 960
Width = 4560
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
ForeColor = &H00000080&
Height = 252
Left = 300
TabIndex = 2
Top = 732
Width = 4560
End
Begin Label lblProcessing
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 315
Left = 1365
TabIndex = 1
Top = 1515
Width = 2220
End
Begin Menu menFile
Caption = "&File"
Begin Menu menFileOpen
Caption = "&Open file"
Enabled = 0 'False
End
Begin Menu menFileSave
Caption = "&Save to directory"
End
Begin Menu menFileSep1
Caption = "-"
End
Begin Menu menFileExit
Caption = "E&xit"
End
End
End

Dim InFile$

Sub Form_Load ()
Show
Load frmSetDir
Label1.Caption = "No file selected"
Label2.Caption = "Save to " + frmSetDir!lblDirName.Caption
End Sub

Sub menFileExit_Click ()
Unload frmSetDir
Close
End
End Sub

Sub menFileSave_Click ()
frmSetDir.Show 1
Label2.Caption = "Save to " + frmSetDir!lblDirName.Caption
End Sub