Visual Basic

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Process.GetProcessById(ProcessID).HasExited Then  'processId is publicly defined and doesn't store null value
            Cursor = Cursors.Default
            Timer1.Dispose()
            msgbox("Process has been terminated")
        End If

    End Sub

If Process.GetProcessById(ProcessID).HasExited Then

Private Sub GetContactNames()
        Dim SqlContactname As String _
                    = "SELECT _rtblPeople.idPeople, _rtblPeople.cDisplayName " _
                    & "FROM _rtblPeople, _rtblPeopleLinks " _
                    & "WHERE _rtblPeopleLinks.iDebtorID = @customercode " _
                    & "AND _rtblPeopleLinks.cModule = 'AR' " _
                    & "AND _rtblPeople.idPeople = _rtblPeopleLinks.iPeopleID"

        Dim Sqlparam As SqlClient.SqlParameter
        Sqlparam = New SqlClient.SqlParameter("@customercode", SqlDbType.Int)
        Sqlparam.Value = My.Settings.CustomerCode

        Using conn As New SqlConnection(CntString)
            Try
                conn.Open()
                Dim MyCommand As New SqlCommand(SqlContactname, conn)
                MyCommand.Parameters.Add(Sqlparam)
                Dim datareader As SqlDataReader
                datareader = MyCommand.ExecuteReader
                While datareader.Read()
                    ContactNameField.Items.Add(datareader.Item("cDisplayName"))
                End While
                datareader.Close()
                conn.Close()
            Catch myerror As SqlException
                MessageBox.Show("Error Connecting to Database: " & myerror.Message)
                conn.Dispose()
            End Try
        End Using
    End Sub