home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
nivb_src
/
misc.frm
< prev
next >
Wrap
Text File
|
1993-06-03
|
1KB
|
50 lines
VERSION 2.00
Begin Form MiscForm
Caption = "Miscellaneous Services Test"
Height = 2385
Left = 1470
LinkTopic = "Form1"
ScaleHeight = 1980
ScaleWidth = 3240
Top = 1620
Width = 3360
Begin CommandButton OKButton
Caption = "&OK"
Height = 375
Left = 1200
TabIndex = 0
Top = 1440
Width = 855
End
Begin Label SerialNumberLabel
Height = 255
Left = 1200
TabIndex = 2
Top = 840
Width = 1575
End
Begin Label Label1
Caption = "Network serial number:"
Height = 255
Left = 360
TabIndex = 1
Top = 360
Width = 2535
End
End
Sub Form_Load ()
ccode% = GetNetworkSerialNumber(serialNumber&, appNumber%)
If (ccode% = SUCCESSFUL) Then
SerialNumberLabel.Caption = Str$(serialNumber&)
Else
SerialNumberLabel.Caption = "Unable to obtain"
End If
End Sub
Sub OKButton_Click ()
Unload MiscForm
End Sub