Visual Basic

class SomeClass

   ' a ticket has a property .Message which is a Mymailer.Message
   private ticket as MyMailer.Ticket

   private function DoSomething(ByVal message as MyMailer.Message) as Mymailer.Message
      message.Subject = "Test subject"
      message.Body = "This is a test message"
      return message
   end function

   private sub SomeSubroutine()
      dim newMessage as MyMailer.Message = DoMailMerge(ticket.Message)
   end sub

end class

private function DoSomething(ByVal message as MyMailer.Message) as Mymailer.Message
   dim subject as string = "TestSubject"
   dim body as string = "This is a test message"

   dim newmessage as new MyMailer.Message
   newmessage.Subject = subject
   newmessage.Body = body
   return newmessage
end function

 Private Sub LookupDB(ByVal PartNum As String)<br />
        Dim ConnectString As String = "user id=****;password=****;initial catalog=eLibrarian;data source=" & "*******"<br />
        Dim con As SqlConnection = New SqlConnection(ConnectString)<br />
<br />
        Dim cmd As SqlCommand = New SqlCommand("pGetSWEETFileAttributes", con)<br />
        <br />
        cmd.CommandType = CommandType.StoredProcedure<br />
        <br />
        '<br />
        ' Initialise parameters to database stored procedure:<br />
        '<br />
        ' 1. Input Parameter representing Part Number<br />
        '<br />
        Dim param As SqlParameter = New SqlParameter("@inparam_ElementID", SqlDbType.VarChar, 50)<br />
<br />
        param.Direction = ParameterDirection.Input<br />
<br />
        param.Value = PartNum<br />
<br />
        cmd.Parameters.Add(param)<br />
        '<br />
        ' Read from database<br />
        '<br />
        con.Open()<br />
<br />
<br />
        Dim reader As SqlDataReader = cmd.ExecuteReader()   'ExecuteNonQuery();<br />
<br />
        Dim record_count As Integer = 0<br />
        While reader.Read()<br />
            txtSize.Text = reader("FileSize").ToString()<br />
            txtMD5.Text = reader("MD5Checksum").ToString()<br />
            record_count = record_count + 1<br />
        End While<br />
        reader.Close()<br />
        con.Close()<br />
<br />
        If record_count = 0 Then<br />
            Throw New Exception("Part number " + PartNum + " not found in dataMyBase. Please enter the filesize and MD5 checksum")<br />
        End If<br />
<br />
    End Sub

      Private HasResponded As Boolean<br />
      Private Timeout As Integer = 100<br />
<br />
      Private Sub TCPResponded(ByVal ar As System.IAsyncResult)<br />
         HasResponded = True<br />
      End Sub<br />
<br />
      Public Function IsAlive(ByVal IPAddress As String) As Boolean<br />
         Dim Conn As New AsyncCallback(AddressOf TCPResponded)<br />
         Dim Tcp As New System.Net.Sockets.TcpClient()<br />
         Dim MyTimeOut As Integer = Timeout<br />
         HasResponded = False<br />
         Tcp.BeginConnect(IPAddress, 9000, Conn, Nothing)<br />
<br />
         While HasResponded = False And MyTimeOut > 0<br />
            System.Threading.Thread.Sleep(10)<br />
            MyTimeOut -= 1<br />
         End While<br />
<br />
         If Tcp.Connected Then<br />
            Tcp.Close()<br />
            Return True<br />
         Else<br />
            Tcp.Close()<br />
            Return False<br />
         End If<br />
      End Function<br />

System.Net.Sockets.SocketException was unhandled by user code<br />
  ErrorCode=10045<br />
  Message="The attempted operation is not supported for the type of object referenced"<br />
  Source="System"<br />
  StackTrace:<br />
       at System.Net.Sockets.Socket.DoMultipleAddressConnectCallback(Object result, MultipleAddressConnectAsyncResult context)<br />
       at System.Net.Sockets.Socket.BeginConnect(String host, Int32 port, AsyncCallback requestCallback, Object state)<br />
       at System.Net.Sockets.TcpClient.BeginConnect(String host, Int32 port, AsyncCallback requestCallback, Object state)<br />
<snip><br />
</snip>

SQLstr = "SELECT * FROM Slot where SectionID IN (SELECT SectionID from [Section] where Group='" & group & "')"<br />
        con.Open()<br />
        Dim DataAdapter As New OleDb.OleDbDataAdapter(SQLstr, con)<br />
        DataAdapter.Fill(groupsection, "Slot")