Visual Basic

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim myclass1 As Class1 = Class1.GetInstance
    Response.Write(myclass1.myVal)
    myclass1 = Nothing
End Sub

Public Shared Sub ReleaseInstance()
   myInst = Nothing
End Sub

------------------------------------------------
I'm largely language agnostic -

After a while they all bug me
------------------------------------------------

Public Class Class1
    Private Shared myInst As Class1
    Private Shared myMutex As New System.Threading.Mutex
    Public Shared myVal As Integer
    Private Shadows disposed As Boolean

    Public Shared Function GetInstance() As Class1
        myMutex.WaitOne()
        If myInst Is Nothing Then
            myInst = New Class1
        End If
        myMutex.ReleaseMutex()
        myInst.myVal += 1
        Return myInst
    End Function


    Public Shared Sub ReleaseInstance()
        myInst = Nothing
    End Sub

End Class

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim myclass1 As Class1 = Class1.GetInstance
    Response.Write(myclass1.myVal)
    Class1.ReleaseInstance()
End Sub

jds1207 wrote:

will tell me to change ListItem to ListViewItem. When I change it I get the error:

Unable to cast object of type 'System.String' to type 'System.Windows.Forms.ListViewItem

For Each item As Object In listBox2.Items
   If Convert.ToString(item) = fi.Name Then
     fFound = True
   End If
Next

  Dim sql As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
                     "Data Source=c:\resource.mdb;Jet OLEDB:System database=\\system.mdw;User Id=; Password=;"<br />
               <br />
                Using connection As New OleDb.OleDbConnection(sql)<br />
<br />
                    connection.ConnectionString = sql<br />
                    connection.Open()

 dim cmd1 As SqlCommand = conn.CreateCommand()<br />
 Dim drd1 As SqlDataReader = cmd1.ExecuteReader()<br />
while drd1.read()<br />
..<br />
end while<br />