Advertisement
NeverPool

Untitled

Mar 17th, 2011
615
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 3.95 KB | None | 0 0
  1. [FORM 1]
  2.  
  3. Public Class Form1
  4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5.         If (CheckBox1.Checked = True) Then
  6.             Shell("/Apps/FirefoxPortable/FirefoxPortable.exe")
  7.         End If
  8.         If (CheckBox2.Checked = True) Then
  9.             Shell("/Apps/Notepad++/unicode/notepad++.exe")
  10.         End If
  11.         If (CheckBox3.Checked = True) Then
  12.             Shell("/Apps/FileZilla/filezilla.exe")
  13.         End If
  14.         If (CheckBox4.Checked = True) Then
  15.             Shell("/Apps/uTorrentPortable/uTorrentPortable.exe")
  16.         End If
  17.         If (CheckBox5.Checked = True) Then
  18.             Shell("/Apps/Photoshop/PhotoshopPortable/PhotoshopPortable.exe")
  19.         End If
  20.         If (CheckBox6.Checked = True) Then
  21.             Shell("/Apps/Pidgin/X-Pidgin.exe")
  22.         End If
  23.         If (CheckBox7.Checked = True) Then
  24.             Shell("/Apps/bb4win_mod/blackbox.exe")
  25.         End If
  26.         If (CheckBox8.Checked = True) Then
  27.             Shell("/Dev-Cpp/devcpp.exe")
  28.         End If
  29.         If (CheckBox9.Checked = True) Then
  30.             Shell("/Apps/Chrome/ChromeLoader.exe")
  31.         End If
  32.         If (CheckBox10.Checked = True) Then
  33.             Shell("/Apps/7-Zip/x86/7zFM.exe")
  34.         End If
  35.         If (CheckBox11.Checked = True) Then
  36.             Shell("/Apps/operausb1063/opera.exe")
  37.         End If
  38.         If (CheckBox12.Checked = True) Then
  39.             Shell("/Apps/Adobe DreamweaverCS4/Portable Adobe Dreamweaver CS4 10 Final/DreamweaverPortable.exe")
  40.         End If
  41.     End Sub
  42.  
  43.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  44.         Application.Exit()
  45.     End Sub
  46.  
  47.     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  48.         Shell("/Apps/operausb1063/opera.exe http://www.dreamincode.net")
  49.     End Sub
  50.  
  51.     Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
  52.         Shell("/Apps/operausb1063/opera.exe http://neverpool.com")
  53.     End Sub
  54.  
  55.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  56.         Form2.Show()
  57.     End Sub
  58. End Class
  59.  
  60. [FORM 2]
  61.  
  62. Public Class Form2
  63.  
  64.     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  65.         Shell("/Apps/operausb1063/opera.exe http://dagobah.net")
  66.     End Sub
  67.  
  68.     Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
  69.         Shell("/Apps/operausb1063/opera.exe http://www.agame.com/")
  70.     End Sub
  71.  
  72.     Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
  73.         Shell("/Apps/operausb1063/opera.exe http://freewebarcade.com")
  74.     End Sub
  75.  
  76.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  77.         If (CheckBox1.Checked = True) Then
  78.             Shell("/Games/Diablo 2/Diablo II/Diablo II.exe")
  79.         End If
  80.         If (CheckBox2.Checked = True) Then
  81.             Shell("/Games/HaloCE/NYR.exe")
  82.         End If
  83.         If (CheckBox3.Checked = True) Then
  84.             Shell("/Games/Stronghold Crusader/Stronghold Crusader.exe")
  85.         End If
  86.         If (CheckBox4.Checked = True) Then
  87.             Shell("/Games/Portable Call of Duty1/codsp.exe")
  88.         End If
  89.         If (CheckBox5.Checked = True) Then
  90.             Shell("/Games/Wesnoth/wesnoth.exe")
  91.         End If
  92.         If (CheckBox6.Checked = True) Then
  93.             Shell("/Games/Starcraft/StarCraft.exe")
  94.         End If
  95.     End Sub
  96. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement