mmm entonces seria algo asi como hacer un textbox que sea = a x donde x sea = a list1.listcount y que cuando ese textbox o lo que sea que contenga el x cambie se haga la accion que quiero ....
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Text1_Change() ;D ;D ;D
Cita de: hacker2000 en 25 Abril 2006, 03:48 AM
lo que quiero hacer es que se deshabilite el admon de tareas pero en la cuenta de invitado lo he intentado pero me acorde que el invitado no puede modificar el registro de windows alguien me podria yudar a solucionar mi problema
grax
Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
On Error Resume Next
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 1001
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub
Dim x() As Form2
Dim z As Integer ' declaro la variable z como numero entero
If Form1.List1.ListCount <> "-1" Then
z = Form1.List1.ListIndex ' nº de ventanas a crear
ReDim Preserve X(Form1.List1.ListCount)
z = Form1.List1.ListIndex
Set X(z) = New Form2
X(z).Show
X(z).Caption = Form1.List1
End If
Public Function IsLoadForm(ByVal FormCaption As String, Optional Active As Variant) As Boolean
Dim rtn As Integer, i As Integer
rtn = False
Name = LCase(FormCaption)
Do Until i > Forms.Count - 1 Or rtn
If LCase(Forms(i).Caption) = FormCaption Then rtn = True
i = i + 1
Loop
If rtn Then
If Not IsMissing(Active) Then
If Active Then
Forms(i - 1).WindowState = vbNormal
End If
End If
End If
IsLoadForm = rtn
End Function