Visual Basic

Public Class prnProcessing 
    Dim WshNetwork = CreateObject("WScript.Network") 
 
    Public arrInstalled As New ArrayList() 
    Dim WithEvents ToDoWork As New System.ComponentModel.BackgroundWorker 
 
 
    Public Sub prnProcessing_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 
        If prnSelection.arrToInstall.Count > 0 Then 
            'added 10-2-08 
            prnProgress.Style = ProgressBarStyle.Continuous 
            'prnProgress.Dock = DockStyle.Bottom 
            prnProgress.Visible = False 
            prnProgress.Minimum = 1 
            prnProgress.Maximum = prnSelection.arrToInstall.Count 
            'end add 10-2-08 
 
            ToDoWork.WorkerReportsProgress = True 
            ToDoWork.WorkerSupportsCancellation = True 
            ToDoWork.RunWorkerAsync(prnSelection.arrToInstall) 
            Me.CenterToScreen() 
        Else 
            MsgBox("There are no printers to install.  Please choose the printers you wish to install.") 
            prnSelection.Show() 
            Me.Close() 
        End If 
 
    End Sub 
 
    Public Sub ToDoWork_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles ToDoWork.DoWork 
 
        Dim worker As System.ComponentModel.BackgroundWorker = CType(sender, System.ComponentModel.BackgroundWorker) 
        If e.Argument IsNot Nothing AndAlso TypeOf (e.Argument) Is ArrayList Then 
            Dim arrToInstall As ArrayList = e.Argument 
            If arrToInstall.Count > 0 Then 
                Dim i As Integer = 1 
                For Each printer As String In arrToInstall 
                    CallByName(Me, printer, CallType.Method) 
                    worker.ReportProgress(i) 
                    i += 1 
                    System.Threading.Thread.Sleep(200) 
                Next 
            End If 
        End If 
    End Sub 
 
    Public Sub ToDoWork_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles ToDoWork.ProgressChanged 
        prnProgress.Visible = True 
        prnProgress.Value = e.ProgressPercentage 
    End Sub 
 
    Public Sub PrinterProgress(ByVal i As Integer, ByVal worker As System.ComponentModel.BackgroundWorker, ByVal e As System.ComponentModel.DoWorkEventArgs) 
        worker.ReportProgress(i) 
    End Sub 
    Public Sub ToDoWork_EndProgress() Handles ToDoWork.RunWorkerCompleted 
        ToDoWork.Dispose() 
        prnWrapup.Show() 
        Me.Close() 
    End Sub 
 
    Public Sub CSE211CLQ() 
        MsgBox("Does it start??", vbOK) 
        'arrInstalled.Add("CSE-211-CLQ") 
  
        WshNetwork.AddWindowsPrinterConnection("LPR", "\\at-cetus.ad.ufl.edu\CSE-211-CLQ", "True") 
        MsgBox("Did it install??", vbOK) 
 
        Shell("net stop spooler") 
        Shell("net start spooler") 
 
        Shell("rundll32 printui.dll, PrintUIEntry /if /b ""test_1/"" /f ""C:\7760.inf\"" /q /r ""at-cetus.ad.ufl.edu:CSE-211-CLQ/"" /m ""Xerox Phaser 7760GX PS"" /z /u") 
 
        MsgBox("Did it install??", vbOK) 
 
 
    End Sub 
End Class