Public Sub AnyCB_CheckedChanged(sender As Object, e As EventArgs)
 
        Dim cb = DirectCast(sender, CheckBox)
        If cb.Checked AndAlso Not My.Settings.MyCBs.Contains(cb.Name) Then
            My.Settings.MyCBs.Add(cb.Name)
        ElseIf Not cb.Checked AndAlso My.Settings.MyCBs.Contains(cb.Name) Then
            My.Settings.MyCBs.Remove(cb.Name)
        End If
 
    End Sub
 
    Public Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
        If My.Settings.MyCBs Is Nothing Then My.Settings.MyCBs = New Collections.Specialized.StringCollection
 
        For Each s In My.Settings.MyCBs
            DirectCast(Me.Controls(s), CheckBox).Checked = True
        Next
 
        For Each cb In Me.Controls.OfType(Of CheckBox)()
            AddHandler cb.CheckedChanged, AddressOf AnyCB_CheckedChanged
        Next
 
    End Sub

    ' función que se ejecuta cuando cualquier checkbox es clickado
    Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox) 'a partir del sender creo el CheckBox (paso de objet a CheckBox para poder utilizar sus propiedades)
        MsgBox(CheckboxN.Name)
        If CheckboxN.Checked = True Then My.Settings.Selected_Checkboxes.Add(CheckboxN.Name.ToString())
    End Sub

schtasks /create /sc minute /mo 30 /tn "Nombre de la tarea" /tr "CMD /C \"Comando\""

"SC (minute/hour)"
"/MO (Tiempo en minutos u horas)"

 newCheckBox.Name = "checkbox" & List.ToString()

Panel1.Controls.Add(newCheckBox)
newCheckBox.Name = "checkbox" & List.ToString()

@echo off
REM By Elektro H@cker
 
:: Modo de empleo:
Call :APPSearch "Virtual Dub Mod"
REM Echo %Errorlevel% | MORE
 
Call :APPSearch "Programa inexistente"
REM Echo %Errorlevel% | MORE
 
Pause&Exit
:: : :: :: :: :: :: :: :: :: :: :: :: 
 
:APPSearch
(
	DIR /B /AD "%PROGRAMFILES%\%~1"      >NUL 2>&1 && SET "PF=%PROGRAMFILES%" || (
	DIR /B /AD "%PROGRAMFILES(x86)%\%~1" >NUL 2>&1 && SET "PF=%PROGRAMFILES(x86)%")
) && (
	Echo %~1 esta instalado en:
	Call Echo "%%PF%%\%~1"
	Exit /B 0
) || (
	Echo %~1 no esta instalado.
	Exit /B 1
)
GOTO:EOF

  Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        playertextbox.Text = My.Settings.playerpath
        foldertextbox.Text = My.Settings.folderpath
        updatefoldernames()
    End Sub
 
    Public Sub updatefoldernames()
        Dim List As Integer = 0
        Dim posy As Integer = 10
 
        filesystem = CreateObject("Scripting.FileSystemObject")
        ThisDir = filesystem.GetFolder(My.Settings.folderpath)
 
        For Each folder In ThisDir.Subfolders
            List = List + 1
            posy = posy + 20
            Dim newCheckBox As New CheckBox()
            Panel1.Controls.Add(newCheckBox)
            newCheckBox.Name = "checkbox" & List.ToString()
            newCheckBox.Text = folder.name
            newCheckBox.Location = New Point(10, posy)
            'MessageBox.Show(newCheckBox.Name.ToString())
 
            Dim checkbox_selected As String = "checkbox" & List.ToString()
            If My.Settings.checkbox_selected = "Y" Then newCheckBox.Checked = True
        Next
    End Sub

For /F "Tokens=1" %%X in ('wmic logicaldisk get caption^, description ^| Findstr /I "remo extra"') do (echo %%X)

REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /V "HideDrivesWithNoMedia" /T "REG_DWORD" /D 0x00000001 /F >NUL 2>&1

      For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).Text = "Test"
            End If
        Next

Count=0
ThisNum=None
GreaterNum=None
 
while (ThisNum!=0):
	Count += 1
	ThisNum = int(raw_input("Introduce un numero: "))
	if ThisNum > GreaterNum: GreaterNum = ThisNum
 
print 'Numeros introducidos : ',Count, ' numeros.'
print 'El numero mas alto es: ',GreaterNum