Visual Basic

If stage = 1 Then
   lblFormName.Text = "Top Row"
   If intScoreTop <= 4 Then
      pcbIcon.Image = My.Resources.Cross_big()
   End If
   lblScore.Text = "You did ok, but only got " & intScoreTop & vbCrLf & " out of 10"
Else
   lblScore.Text = "Well done, you got " & intScoreTop & vbCrLf & " out of 10"
End If

Try<br />
                            ' Create a ManagementClass object<br />
                            Dim managementClass As System.Management.ManagementClass = New System.Management.ManagementClass("Win32_Share")<br />
                            ' Create ManagementBaseObjects for in and out parameters<br />
                            Dim inParams As System.Management.ManagementBaseObject = managementClass.GetMethodParameters("Create")<br />
                            Dim outParams As System.Management.ManagementBaseObject<br />
                            ' Set the input parameters<br />
                            inParams("Description") = "My Shared Files"<br />
                            inParams("Name") = partner_name<br />
                            inParams("Path") = Session("Path").ToString() ' This is a path to existing directory<br />
                            inParams("Type") = 0<br />
                            ' Disk Drive<br />
                            ' Invoke the method on the ManagementClass object<br />
                            outParams = managementClass.InvokeMethod("Create", inParams, Nothing)<br />
                            ' Check to see if the method invocation was successful<br />
                            If (CType(outParams.Properties("ReturnValue").Value, Integer) <> 0) Then<br />
                                Throw New Exception("Unable to share directory.")<br />
                            End If<br />
                        Catch ex As Exception<br />
                            'Return e.Message<br />
                        End Try<br />