Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [FORM 1]
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If (CheckBox1.Checked = True) Then
- Shell("/Apps/FirefoxPortable/FirefoxPortable.exe")
- End If
- If (CheckBox2.Checked = True) Then
- Shell("/Apps/Notepad++/unicode/notepad++.exe")
- End If
- If (CheckBox3.Checked = True) Then
- Shell("/Apps/FileZilla/filezilla.exe")
- End If
- If (CheckBox4.Checked = True) Then
- Shell("/Apps/uTorrentPortable/uTorrentPortable.exe")
- End If
- If (CheckBox5.Checked = True) Then
- Shell("/Apps/Photoshop/PhotoshopPortable/PhotoshopPortable.exe")
- End If
- If (CheckBox6.Checked = True) Then
- Shell("/Apps/Pidgin/X-Pidgin.exe")
- End If
- If (CheckBox7.Checked = True) Then
- Shell("/Apps/bb4win_mod/blackbox.exe")
- End If
- If (CheckBox8.Checked = True) Then
- Shell("/Dev-Cpp/devcpp.exe")
- End If
- If (CheckBox9.Checked = True) Then
- Shell("/Apps/Chrome/ChromeLoader.exe")
- End If
- If (CheckBox10.Checked = True) Then
- Shell("/Apps/7-Zip/x86/7zFM.exe")
- End If
- If (CheckBox11.Checked = True) Then
- Shell("/Apps/operausb1063/opera.exe")
- End If
- If (CheckBox12.Checked = True) Then
- Shell("/Apps/Adobe DreamweaverCS4/Portable Adobe Dreamweaver CS4 10 Final/DreamweaverPortable.exe")
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Application.Exit()
- End Sub
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Shell("/Apps/operausb1063/opera.exe http://www.dreamincode.net")
- End Sub
- Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
- Shell("/Apps/operausb1063/opera.exe http://neverpool.com")
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Form2.Show()
- End Sub
- End Class
- [FORM 2]
- Public Class Form2
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Shell("/Apps/operausb1063/opera.exe http://dagobah.net")
- End Sub
- Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
- Shell("/Apps/operausb1063/opera.exe http://www.agame.com/")
- End Sub
- Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
- Shell("/Apps/operausb1063/opera.exe http://freewebarcade.com")
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If (CheckBox1.Checked = True) Then
- Shell("/Games/Diablo 2/Diablo II/Diablo II.exe")
- End If
- If (CheckBox2.Checked = True) Then
- Shell("/Games/HaloCE/NYR.exe")
- End If
- If (CheckBox3.Checked = True) Then
- Shell("/Games/Stronghold Crusader/Stronghold Crusader.exe")
- End If
- If (CheckBox4.Checked = True) Then
- Shell("/Games/Portable Call of Duty1/codsp.exe")
- End If
- If (CheckBox5.Checked = True) Then
- Shell("/Games/Wesnoth/wesnoth.exe")
- End If
- If (CheckBox6.Checked = True) Then
- Shell("/Games/Starcraft/StarCraft.exe")
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement