Information Technology Reference
In-Depth Information
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2160
TabIndex = 3
Top = 1320
Width = 1815
End
Begin VB.Label Question1
Caption = "Which mode do you want to use?"
Height = 375
Left = 840
TabIndex = 0
Top = 240
Width = 2535
End
End
Attribute VB_Name = "ChoiceSC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Last modification: 15/11/99
Private Sub Form_Load()
Unload myClient 'Close Client form properly
Unload myServer 'Close Server form properly
End Sub
Private Sub Server1_Click()
Unload myClient 'Close Client form properly
Unload myServer 'Close Server form properly
myServer.Show
End Sub
Private Sub Client1_Click()
Unload myClient 'Close Client form properly
Unload myServer 'Close Server form properly
myClient.Show
End Sub
J.4 Error panel (ErrorPanel.frm)
VERSION 5.00
Begin VB.Form ErrorPanel
BorderStyle = 4 'Fixed ToolWindow
Caption = "00 Type Error"
ClientHeight = 1545
ClientLeft = 45
ClientTop = 285
ClientWidth = 2385
LinkTopic = "Form1"
