Public Sub CreateCase()
        Dim xmlDoc As New XmlDocument
        Dim xmlNode As XmlNode
        Dim strSustainPath As String
        Dim strRunMode As String

        Try
                                       
            g_blnTransaction = True
             frmProgress1 = New frmProgress
            ProgressbarThread = New System.Threading.Thread(AddressOf SetCaseProgressBar)
            ProgressbarThread.SetApartmentState(ApartmentState.STA)
            ' Start the thread 
            ProgressbarThread.Start()

            TrasactionThread = New System.Threading.Thread(New ThreadStart(AddressOf sustainCreateCase))
            TrasactionThread.SetApartmentState(ApartmentState.STA)
            TrasactionThread.IsBackground = True
            TrasactionThread.Start()
           

            g_blnTransaction = False
            g_blnSave = True

        Catch ex As Exception
            g_blnTransaction = False
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            objLogger.WriteToLog("frmCase", "CreateCase", ex.Message, , mlLogger006.cLog.LogOptions.ShowMsgBox)
        End Try
    End Sub

 Private Sub sustainCreateCase()
                Try
            If Me.InvokeRequired Then
                Me.Invoke(New MethodInvoker(AddressOf sustainCreateCase))
            Else
                System.Windows.Forms.Application.DoEvents()
                i = oCase.AddCase(strCourtKey, intErrorStatus, strErrorMessage)
               If strErrorMessage.Trim <> "" Then
                    MessageBox.Show(strErrorMessage, "<app>")
                    If TrasactionThread.IsAlive Then
                        Try
                            TrasactionThread.Abort()
                        Catch ex As ThreadAbortException
                            Thread.ResetAbort()
                        Finally
                            ' TrasactionThread.Join()
                            TrasactionThread = Nothing
                        End Try
                    End If
                    If ProgressbarThread.IsAlive Then
                        Try
                            ProgressbarThread.Abort()
                        Catch ex As ThreadAbortException
                            Thread.ResetAbort()
                        Finally
                            '  ProgressbarThread.Join()
                            ProgressbarThread = Nothing
                        End Try
                    End If
                    Exit Sub
                End If
                If TrasactionThread.IsAlive Then
                    Try
                        TrasactionThread.Abort()
                    Catch ex As ThreadAbortException
                        Thread.ResetAbort()
                    Finally
                        ' TrasactionThread.Join()
                        TrasactionThread = Nothing
                    End Try
                End If
                If ProgressbarThread.IsAlive Then
                    Try
                        ProgressbarThread.Abort()
                    Catch ex As ThreadAbortException
                        Thread.ResetAbort()
                    Finally
                        ' ProgressbarThread.Join()
                        ProgressbarThread = Nothing
                    End Try
                End If
                End If
        Catch ex As ThreadAbortException
            Thread.ResetAbort()
        End Try
    End Sub

    Private Sub SetCaseProgressBar()
        Dim strProcedureName As String = "SetProgressBar"
        Dim strTemp As String
        Dim g As Graphics
        Dim f As SizeF
        Try
            frmProgress1.blnDocument = True
            frmProgress1.Text = "Creating Case . . ."
            frmProgress1.lblStatus.Text = ""
            strTemp = "Creating Case Number for " & txtCaseTitle.Text
            g = Graphics.FromHwnd(frmProgress1.lblStatus.Handle)
            f = g.MeasureString(strTemp, frmProgress1.lblStatus.Font)
            frmProgress1.lblStatus.Width = Convert.ToInt16(f.Width) + 10
            frmProgress1.Width = frmProgress1.lblStatus.Width + 15
            frmProgress1.Height = frmProgress1.lblStatus.Top + 50
            If frmProgress1.Width < frmProgress1.FileConfAnim.Width Then
                frmProgress1.Width = frmProgress1.FileConfAnim.Width + 15
                frmProgress1.FileConfAnim.Left = 8
            Else
                frmProgress1.FileConfAnim.Left = (frmProgress1.Width - frmProgress1.FileConfAnim.Width) / 2
            End If
            frmProgress1.lblStatus.Text = strTemp
            frmProgress1.ShowDialog()

        Catch ex As Exception
            '  MessageBox.Show(ex.Message)
            'objLogger.WriteToLog(ModuleName, strProcedureName, "Exception in SetProgressBar procedure", xmlLogger003.cLog.LogOptions.NONE, "", LogLevel.High, "", "Exception Message" & ex.Message)
        Finally

        End Try
    End Sub

Try

Catch(ex As ThreadAbortException)
End Try