Help in my CrossFire Cleaner Source Code it always connecting to internet please

can you check my source code because if i post it on this section Moderators always Tell me a reason
"still connect to internet" can you check and tell me what i can remove to stop application connect to internet

Imports System****
Public Class Form1
'move form withour boarder
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, Label1.MouseDown
drag = True 'Sets the variable drag to true.
mousex = Windows.Forms.Cursor.Position.X - Me.Left 'Sets variable mousex
mousey = Windows.Forms.Cursor.Position.Y - Me.Top 'Sets variable mousey

End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove, Label1.MouseMove
'If drag is set to true then move the form accordingly.
If drag Then
Me.Top = Windows.Forms.Cursor.Position.Y - mousey
Me.Left = Windows.Forms.Cursor.Position.X - mousex
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp, Label1.MouseUp
drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove
End Sub
'checkbox if checked declaration
Dim CHK1C As Boolean = False
Dim CHK2C As Boolean = False
Dim CHK3C As Boolean = False
Dim CHK4C As Boolean = False
Dim CHK5C As Boolean = False
Dim CHK6C As Boolean = False
Dim CHK7C As Boolean = True
Private Sub CHK1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK1.MouseDown
If CHK1C = False Then
CHK1.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK1C = True
Label11.ForeColor = Color.Green
Else
CHK1.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK1C = False
Label11.ForeColor = Color.White
End If
End Sub

Private Sub CHK2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK2.MouseDown
If CHK2C = False Then
CHK2.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK2C = True
Label12.ForeColor = Color.Green
Else
CHK2.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK2C = False
Label12.ForeColor = Color.White
End If
End Sub

Private Sub CHK3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK3.MouseDown
If CHK3C = False Then
CHK3.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK3C = True
Label13.ForeColor = Color.Green
Else
CHK3.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK3C = False
Label13.ForeColor = Color.White
End If
End Sub

Private Sub CHK4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK4.MouseDown
If CHK4C = False Then
CHK4.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK4C = True
Label14.ForeColor = Color.Green
Else
CHK4.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK4C = False
Label14.ForeColor = Color.White
End If
End Sub

Private Sub CHK5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CHK5.MouseDown
If CHK5C = False Then
CHK5.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK5C = True
Label15.ForeColor = Color.Green
Else
CHK5.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK5C = False
Label15.ForeColor = Color.White
End If
End Sub

Private Sub BACKUPCHK_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BACKUPCHK.MouseDown
If CHK7C = False Then
BACKUPCHK.BackgroundImage = My.Resources.CF_Checkbox_checked
CHK7C = True
Label20.Text = "Backup Ready"
Label20.ForeColor = Color.Green
Label18.ForeColor = Color.Green
Else
BACKUPCHK.BackgroundImage = My.Resources.CF_Checkbox_Unchecked
CHK7C = False
Label20.Text = "NotBackUp"
Label20.ForeColor = Color.Red
Label18.ForeColor = Color.White
End If
End Sub
Public YesorNo As Boolean
Dim StartupPath As String = IO.Path.GetFullPath(Application.StartupPath)
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click, Panel15.Click
Dim datapath As String = IO.Path.GetFullPath(Application.StartupPath)
If Label10.Text = "Clean Now" Then
Dim msgform As New MsgForm
msgform.Label1.Text = "Warning"
msgform.Label2.Text = "Are You Sure You Want To Delete. If You Worry To Delete Files Check The Backup Files To Backup Your Deleted Files"
msgform.Panel4.Visible = True
msgform.ShowDialog()
Do Until msgform.Visible = False
Loop
If YesorNo = True Then
With ListBox1.Items
ListBox1.Items.Clear()
Label22.Text = ListBox1.Items.Count
If CHK1C = True Then
Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\Replay")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.cfr")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
Dim StartupPath As String = IO.Path.GetFullPath(Application.StartupPath)
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK2C = True Then
Dim di2 As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.bmp")
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di2.ToString + "\" + dra2.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra2.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di2.ToString + "\" + dra2.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK3C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "backup\Temp")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
Dim di2 As New IO.DirectoryInfo(TextBox1.Text + "backup\output")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di2.ToString + "\" + dra2.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra2.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di2.ToString + "\" + dra2.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK4C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "log")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK5C = True Then
' unfinished
Dim di As New IO.DirectoryInfo(TextBox1.Text + "Xtrap")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
If CHK7C = True Then
My.Computer.FileSystem.MoveFile(di.ToString + "\" + dra.ToString, StartupPath + "\Data\Backups\" + "BU" + My.Settings.BackupNumber.ToString + "_" + dra.ToString)
My.Settings.BackupNumber += 1
Else
My.Computer.FileSystem.DeleteFile(di.ToString + "\" + dra.ToString)
End If
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
Label22.Text = ListBox1.Items.Count.ToString + " Files"
YesorNo = False
My.Settings.LastClean = TimeOfDay + " " + TimeOfDay.Date
Panel18.Visible = False
ProgressBar1.Value = 0
If CHK7C = True Then
msgform.Label1.Text = "Backup"
msgform.Label2.Text = "SuccessFully Backup Go To " + Application.StartupPath.ToString + "\Data\Backups To Show The Backup Files"
msgform.ShowDialog()
End If
Label10.Text = "Start/Scan"
Panel18.Visible = False
End With
End If
ElseIf Label10.Text = "Start/Scan" Then
With ListBox1.Items
Label6.Text = "Scanning"
ListBox1.Items.Clear()
If CHK1C = True Then
Label10.Text = "Stop"
Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\Replay")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.cfr")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK2C = True Then
Dim di2 As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.bmp")
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK3C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "backup")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK4C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "log")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK5C = True Then
' unfinished
Dim di As New IO.DirectoryInfo(TextBox1.Text + "Xtrap")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK6C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text)
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
Label6.Text = "Finished Scan"
Label10.Text = "Clean Now"
Panel18.Visible = True
ProgressBar1.Value = 0
Label22.Text = ListBox1.Items.Count
End With
Else
Exit Sub
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ SOFTWARE\MYGAME\CrossFire", "installpath", "")

End Sub

Private Sub Label24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label24.Click, Panel16.Click
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If My.Computer.FileSystem.FileExists(FolderBrowserDia log1.SelectedPath.ToString + "\crossfire.exe") Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString + "\"
Else
Dim msgform As New MsgForm
msgform.Label1.Text = "WRONG CROSSFIRE FOLDER"
msgform.Label2.Text = "Please Recheck Your CrossFire Folder Or Reselect Your CrossFire Folder"
msgform.ShowDialog()
End If
End If
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
My.Settings.Save()
End
End Sub
Dim Filepath As String
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = TimeOfDay
End Sub

Private Sub Label25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label25.Click, Panel18.Click
With ListBox1.Items
Label6.Text = "Scanning"
ListBox1.Items.Clear()
If CHK1C = True Then
Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\Replay")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.cfr")
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next

End If
If CHK2C = True Then
Dim di2 As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDir ectories.MyDocuments + "\Cross Fire\")
Dim diar12 As IO.FileInfo() = di2.GetFiles("*.bmp")
Dim dra2 As IO.FileInfo
'list the names of all files in the specified directory
For Each dra2 In diar12
ListBox1.Items.Add(dra2)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK3C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "backup")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK4C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text + "log")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.*", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK5C = True Then
' unfinished
Dim di As New IO.DirectoryInfo(TextBox1.Text + "Xtrap")
Dim diar1 As IO.FileInfo() = di.GetFiles("*.log", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
If CHK6C = True Then
Dim di As New IO.DirectoryInfo(TextBox1.Text)
Dim diar1 As IO.FileInfo() = di.GetFiles("*.bak", IO.SearchOption.AllDirectories)
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items.Add(dra)
ProgressBar1.Value = .Count
ProgressBar1.Maximum = .Count + 1
Next
End If
Label6.Text = "Finished Scan"
Label10.Text = "Clean Now"
Panel18.Visible = True
ProgressBar1.Value = 0
Label22.Text = ListBox1.Items.Count
End With
End Sub
Private Sub RestoreWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestoreWindowToolStripMenuItem.Click
Me.WindowState = FormWindowState.Normal
NotifyIcon1.Visible = False
Me.ShowInTaskbar = True
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
My.Settings.Save()
End Sub

Private Sub Label10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label10.MouseDown, Panel15.MouseDown
Panel15.BackgroundImage = My.Resources.Cf_Button_dOWN
End Sub

Private Sub Label10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label10.MouseLeave, Panel15.MouseLeave
Panel15.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label10_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label10.MouseUp, Panel15.MouseUp
Panel15.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label25_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label25.MouseDown, Panel18.MouseDown
Panel18.BackgroundImage = My.Resources.Cf_Button_dOWN
End Sub

Private Sub Label25_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label25.MouseLeave, Panel18.MouseLeave
Panel18.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label25_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label25.MouseUp, Panel18.MouseUp
Panel18.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label24_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseDown, Panel16.MouseDown
Panel16.BackgroundImage = My.Resources.Cf_Button_dOWN
End Sub

Private Sub Label24_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label24.MouseLeave, Panel16.MouseLeave
Panel16.BackgroundImage = My.Resources.Cf_Button
End Sub

Private Sub Label24_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label24.MouseUp, Panel16.MouseUp
Panel16.BackgroundImage = My.Resources.Cf_Button
End Sub
Private Sub ToTaskbarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToTaskbarToolStripMenuItem.Click
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = True
NotifyIcon1.Visible = False
End Sub
Private Sub ToNotifyIconToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToNotifyIconToolStripMenuItem.Click
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False
NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
NotifyIcon1.BalloonTipTitle = "Access CrossFire Cleaner"
NotifyIcon1.BalloonTipText = "Easy To Access The CrossFire Cleaner With One Click On The CrossFire Cleaner Icon"
NotifyIcon1.ShowBalloonTip(5)
NotifyIcon1.Visible = True
End Sub
Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub BackupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupToolStripMenuItem.Click
Process.Start("explorer", Application.StartupPath + "\Data\Backups")
End Sub

Private Sub AboutInformationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutInformationToolStripMenuItem.Click
Dim About As New About
About.ShowDialog()
End Sub

Private Sub TaskmanagerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TaskmanagerToolStripMenuItem.Click
TaskManager.Show()
End Sub

Private Sub MP3AndWavPlayerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MP3AndWavPlayerToolStripMenuItem.Click
CFPlayer.Show()
End Sub

Private Sub MouseManagerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MouseManagerToolStripMenuItem1.Click
Dim autoclicker As New AutoClicker
autoclicker.ShowDialog()
End Sub

Private Sub SpammerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammerToolStripMenuItem1.Click
Dim spammer As New Spammer
spammer.ShowDialog()
End Sub

Private Sub PasswordGeneratorToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswordGeneratorToolStripMenuItem1.Click
PasswordGenerator.Show()
End Sub

Private Sub MovableCrossHairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovableCrossHairToolStripMenuItem.Click
CrossHair_point.Show()
End Sub

Private Sub CrossFireBrowserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrossFireBrowserToolStripMenuItem.Click
CrossFire_Browser.Show()
End Sub
Private Sub CrossFireLauncherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrossFireLauncherToolStripMenuItem.Click
If My.Computer.FileSystem.FileExists(TextBox1.Text + "\MPGH CROSSFIRE LAUNCHER.EXE") Then
Process.Start(TextBox1.Text + "\mpgh crossfire launcher.exe")
Else
My.Computer.FileSystem.CopyFile(Application.Startu pPath + "\mpgh crossfire launcher.exe", TextBox1.Text + "\")
End If
End Sub
Private Sub WindowsCalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsCalculatorToolStripMenuItem.Click
Process.Start("calc.exe")
End Sub

Private Sub WritePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WritePadToolStripMenuItem.Click
Notepad.Show()
End Sub
End Class

Help in my CrossFire Cleaner Source Code it always connecting to internet please

Post a Reply

Similar Threads

Tags for this Thread