Public Class Mining
    Dim overwatch() As Process
    Dim two() As Process
    Dim three() As Process
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        overwatch = Process.GetProcessesByName("Overwatch")
        two = Process.GetProcessesByName("kopanie 2x gtx 1060 — zencash")
        three = Process.GetProcessesByName("mining — zencash")
        For i As Integer = 0 To 2
            If overwatch.Count = 1 And two.Count = 0 Then
                TextBox1.Text = "Włączanie kopania na 2 kartach."
                TextBox1.Update()
                Process.Start("C:\Users\Vomar\Desktop\ccminer-x86-2.2.3-cuda9\kopanie 2x gtx 1060 — zencash.exe")
                ProgressBar1.PerformStep()
            ElseIf overwatch.Count = 1 And three.Count = 1 Then
                TextBox1.Text = "Wyłączanie kopania na 3 kartach."
                TextBox1.Update()
                three(0).CloseMainWindow()
                ProgressBar1.PerformStep()
            ElseIf overwatch.Count = 0 And two.Count = 1 Then
                TextBox1.Text = "Wyłączanie kopania na 2 kartach."
                TextBox1.Update()
                two(0).CloseMainWindow()
                ProgressBar1.PerformStep()
            ElseIf overwatch.Count = 0 And three.Count = 0 Then
                TextBox1.Text = "Włączanie kopania na 3 kartach."
                TextBox1.Update()
                Process.Start("C:\Users\Vomar\Desktop\ccminer-x86-2.2.3-cuda9\mining — zencash.exe")
                ProgressBar1.PerformStep()
            ElseIf overwatch.Count = 0 And three.Count = 1 Then
                TextBox1.Text = "Kopanie na 3 kartach."
                TextBox1.Update()
                ProgressBar1.PerformStep()
            ElseIf overwatch.Count = 1 And two.Count = 1 Then
                TextBox1.Text = "Granie i kopanie na 2 kartach."
                TextBox1.Update()
                ProgressBar1.PerformStep()
            End If
            If ProgressBar1.Value = ProgressBar1.Maximum Then
                ProgressBar1.Value = ProgressBar1.Minimum
            End If
            Threading.Thread.Sleep(1000)
            i -= 1
        Next
    End Sub
End Class