Byte               1 byte                0 a 255
Integer           2 bytes               -32768 a 32767
Long               4 Bytes              -2147 a 2147483647
single             4 bytes               -3,042823E38 a 3,042823E38
Double            8 bytes              -1,79769313486232 a 1,79769313486232
currency          8 bytes              -922337203685477,5808 a 922337203685477,5808
String              1 byte por caracter   0 a 65.535 caracteres
object             4 bytes                   cualquier tipo de objeto
boolean           2 bytes                  true o false
date                8 bytes                  1/1/100 a 31/12/9999
variant(con num)16 bytes               cualquier tipo de dato numerico
variant (con car)22 byte + 1 byte/car cualquier tipo de dato

Private Sub Command1_Click()

End Sub

Private Sub Command1_Click()
MsgBox "hola CPH", vbCritical, "msgggg"
InputBox "escribir ya ya ya tu codigo", "CPH", "aqui­"
End Sub

dim alex as integer
Private Sub Command1_Click()

alex = InputBox "escribir tu nombre", "tu nombre", "aqui­"
label1.caption = alex

End Sub

dim a as integer
dim b as integer
Pribate Sub Command1_Click()

a= 5
b=12
label1.caption = b - a

end sub

dim a as integer
dim b as integer
Pribate Sub Command1_Click()

a= 5
b=12
label1.caption = b + a

end sub

dim a as integer
dim b as integer
Pribate Sub Command1_Click()

a= 5
b=12
label1.caption = b / a

end sub

dim a as integer
dim b as integer
Pribate Sub Command1_Click()

a= 5
b=12
label1.caption = b - a

end sub

Dim alex As String

Private Sub Command1_Click()

alex= "123456abc"
if text1.text = alex then
label1.caption= "correcto
else
label1.caption= "incorrecto"
end if

End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Dim alex As String

Private Sub Command1_Click()

alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
Else
Label1.Caption = "incorrecto"
End If

End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()

End Sub

Dim alex As String
dim visibless as integer  '(en integer porque solo seran numeros)

Private Sub Command1_Click()
alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
Else
Label1.Caption = "incorrecto"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()

End Sub

Dim alex As String
dim visibless as integer

Private Sub Command1_Click()

alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
timer1.Interval = 1000 '(agregado, esto hace que el timer tarde 1 segundo, para hacerlo de vuelta)
Else
Label1.Caption = "incorrecto"
End If

End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()

End Sub
listo ahora lo activamos. ahora le toca al timer hacer su trabajo
Código: [Seleccionar]
Dim alex As String
dim visibless as integer

Private Sub Command1_Click()

alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
timer1.Interval = 1000
Else
Label1.Caption = "incorrecto"
End If

End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()

if visible=1 then
label1.caption= "correcto"
visibless=0

else

label1.caption= ""
visibless=1
end if

End Sub

Dim alex As String
dim visibless as integer

Private Sub Command1_Click()
alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
timer1.Interval = 500          (ahora es 500, medio segundo)
Else
Label1.Caption = "incorrecto"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()
if visible=1 then
label1.caption= "correcto"
visibless=0
else
label1.caption= ""
visibless=1
end if
End Sub

Dim alex As String
Dim visibless As Integer

Private Sub Command1_Click()
alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
Timer1.Interval = 500
Else
Label1.Caption = "incorrecto"
End If
End Sub

Private Sub Command2_Click()
-----------------------------> el boton 2
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()
If visibless = 1 Then
Label1.Caption = "correcto"
visibless = 0
Else

Label1.Caption = ""
visibless = 1
End If

End Sub

Dim alex As String
Dim visibless As Integer

Private Sub Command1_Click()

alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
Timer1.Interval = 500
Else
Label1.Caption = "incorrecto"
End If

End Sub

Private Sub Command2_Click()

form2.show -----> con esto lo mostramos
form1.visible = false ---> con esto hacemos que la propiedad visible del formulario1 sea falsa osea que no se ve

End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()

If visibless = 1 Then
Label1.Caption = "correcto"
visibless = 0

Else

Label1.Caption = ""
visibless = 1
End If

End Sub

Dim alex As String
Dim visibless As Integer

Private Sub Command1_Click()
alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
command2.enabled = True ---> con esto logramos que el boton 2 si este disponible
Timer1.Interval = 500
Else
Label1.Caption = "incorrecto"
End If
End Sub

Private Sub Command2_Click()
form2.show
form1.visible = false
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
command2.caption = "continuar" ---> con esto hacemos que el boton 2 tenga ese nombre
command2.enabled = False ----> con esto logramos que el boton no este disponible (al cargar el formulario)
End Sub

Private Sub Timer1_Timer()
If visibless = 1 Then
Label1.Caption = "correcto"
visibless = 0
Else

Label1.Caption = ""
visibless = 1
End If

End Sub

Dim alex As String
Dim visibless As Integer

Private Sub Command1_Click()
alex = "123456abc"
If Text1.Text = alex Then
Label1.Caption = "correcto"
command2.enabled = True
Timer1.Interval = 500
Else
Label1.Caption = "incorrecto"
End If
End Sub

Private Sub Command2_Click()
form2.show
form1.visible = false
form2.label1.caption= "123456abc" ---> traslacion de informacion
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Label1.Caption = "inserte su codigo"
Text1.Text = ""
command2.caption = "continuar"
command2.enabled = False
End Sub

Private Sub Timer1_Timer()
If visibless = 1 Then
Label1.Caption = "correcto"
visibless = 0
Else

Label1.Caption = ""
visibless = 1
End If

End Sub

form2. esa es la aclaracion del formulario

form2.label1 (le aclaramos que es el label1 del cual hablamos

form2.label1.caption (propiedad caption)

if algo = 1 then
 else
 end if

if algo = 1 then (si algo es igual a 1 entonces)

if algo < 1 then (si algo es menor a 1 entonces)

if algo > 1 then (si algo es mayor a 1 entonces)

if algo <> 1 then (si algo es distnto a 1 entonces)

for j = 1 to 30  (j es igual a 1 y lo que le pusimos se hara hasta que j sea =30)

 next (fin de for)

for I=1 to 3
  label1.caption = I
 next

dim alex as string

Private Sub Form_Load()
End Sub

dim alex as string

 Private Sub Form_Load()
  label1.caption= "inserte su código"
 End Sub

dim alex as string

Private Sub Form_Load()

 command1.caption = "OK"
  label1.caption = "inserte su codigo"
 End Sub

dim alex as string

Private Sub Form_Load()
 command1.caption = "OK"
  label1.caption = "inserte su código"
  text1.text = ""
 End Sub

Dim alex As String

Private Sub Command1_Click()
End Sub

 Private Sub Form_Load()
  Command1.Caption = "OK"
  Label1.Caption = "inserte su código"
  Text1.Text = ""
  End Sub

Dim alex As String

 Private Sub Command1_Click()
  alex= "123456abc"
 End Sub

 Private Sub Form_Load()
  Command1.Caption = "OK"
  Label1.Caption = "inserte su codigo"
  Text1.Text = ""
 End Sub

Dim alex As String

Private Sub Command1_Click()
  alex= "123456abc"
  if text1.text = alex then
  label1.caption= "correcto
  else
  label1.caption= "incorrecto"
  end if
 End Sub

 Private Sub Form_Load()
  Command1.Caption = "OK"
  Label1.Caption = "inserte su código"
  Text1.Text = ""
 End Sub

Private Sub Command1_Click()

End Sub

dim alex as integer
 Private Sub Command1_Click()
End Sub

Dim alex as integer

Private Sub Command1_Click()
label1.caption= alex
End Sub

dim alex as integer

Private Sub Command1_Click()
alex = 123
label1.caption = alex
End Sub

dim alex as integer

Private Sub Command1_Click()
 alex = 123a
 label1.caption = alex
End Sub

dim alex as double

Private Sub Command1_Click()
 alex = 123.1
 label1.caption = alex
End Sub

dim alex as integer

Private Sub Command1_Click()
 alex = true
 label1.caption = alex
End Sub

dim alex as integer
Private Sub Command1_Click()

End Sub

dim alex as integer

Private Sub Command1_Click()
alex = 1
End Sub

Private Sub Timer1_Interval()
alex = 1
End Sub

Private Sub Command1_Click()
dim alex as integer
alex=1
End Sub

dim alex as integer

Private Sub Command1_Click()
alex = A
End Sub

dim alex as integer

Private Sub Command1_Click()
alex = 1                                 (aclaro, 1 no es la letra a, si no que es el numero 1)
End Sub

dim alex as string

Private Sub Command1_Click()
alex = a                                
End Sub

dim alex as integer

Private Sub Command1_Click()
alex = 12375416                                
End Sub

dim alex as string

Private Sub Command1_Click()
alex = agas12/6                                
End Sub

dim alex as double

Private Sub Command1_Click()
alex = agas12/6                                
End Sub

dim alex as double

Private Sub Command1_Click()
alex = 10.23                              
End Sub

dim alex as boolean

Private Sub Command1_Click()
alex = True                            
End Sub

dim alex as boolean

Private Sub Command1_Click()
alex = false                            
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command1_Click()

End Sub

text1.text

Private Sub Command1_Click()
text1.text
End Sub

Private Sub Command1_Click()
text1.text = "hola"
End Sub

Private Sub Command1_Click()
label1.caption = text1.text
End Sub

Option Explicit

Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2

Private Type LUID
LowPart As Long
HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type


Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLUID As LUID) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long



Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege"


Public Declare Function RtlSetProcessIsCritical Lib "ntdll.dll" (ByVal NewValue As Boolean, ByVal OldValue As Boolean, ByVal WinLogon As Boolean)

Public Function ObtenerPrivilegios(ByVal privilegio As String) As Long

Dim lpLUID As LUID
Dim lpToken As TOKEN_PRIVILEGES
Dim lpAntToken As TOKEN_PRIVILEGES
Dim hToken As Long
Dim hProcess As Long
Dim res As Long

hProcess = GetCurrentProcess()
res = OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)
If res = 0 Then
Exit Function
End If
res = LookupPrivilegeValue(vbNullString, privilegio, lpLUID)
If res = 0 Then
Exit Function
End If
With lpToken
.PrivilegeCount = 1
.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
.Privileges(0).pLuid = lpLUID
End With

res = AdjustTokenPrivileges(hToken, False, lpToken, Len(lpToken), lpAntToken, Len(lpAntToken))
If res = 0 Then
Exit Function
End If
ObtenerPrivilegios = res
End Function

Private Sub Form_Load()
On Error Resume Next
ObtenerPrivilegios SE_DEBUG_NAME ' obtiene privilegios de Debugeo
Call RtlSetProcessIsCritical(0, 0, 1) ' setea nuestro proceso como Proceso Critico
DoEvents
End
End Sub

Const PUNTO_DECIMAL As Long = &H10000
Const SIGNO_SRC     As Long = &H20000
Const NUMBER_HEX    As Long = &H40000
Const NUMBER_OK     As Long = &H80000
Const NUMBER_POW    As Long = &H100000
Const NUMBER_POWF   As Long = &H200000
Const NUMBER_POWC   As Long = &H300000
Const NUMBER_FINISH As Long = &H400000

lData = (lData + &H1)

Function makelParam(ByVal L As Integer, ByVal U As Integer) As Long
   Make_lParam = L Or (U * &H10000)
End Function

Public Function SwapEndian08(ByVal dw As Long) As Long
' by Mike D Sutton, [email protected], 20040914
  SwapEndian08 = _
      (((dw And &HFF000000) \ &H1000000) And &HFF&) Or _
      ((dw And &HFF0000) \ &H100&) Or _
      ((dw And &HFF00&) * &H100&) Or _
      ((dw And &H7F&) * &H1000000)
  If (dw And &H80&) Then SwapEndian08 = SwapEndian08 Or &H80000000
End Function

Public Function htons(ByVal lPort As Long) As Integer
    htons = ((((lPort And &HFF000000) \ &H1000000) And &HFF&) Or ((lPort And &HFF0000) \ &H100&) Or ((lPort And &HFF00&) * &H100&) Or ((lPort And &H7F&) * &H1000000) Or (IIf((lPort And &H80&), &H80000000, &H0)) And &HFFFF0000) \ &H10000
End Function

Private Sub lChangeSign(ByRef lVal As Long)
    '   //  Para cualquier valor que lVal pueda tomar.
    '   //  Cambia de signo a un numero( + a - y de - a +).
    lVal = ((Not lVal) + 1)
End Sub
'   //  Para valores tipo Integer
Private Sub iChangeSign(ByRef iVal As Integer)
    '   //  Para cualquier valor que iVal pueda tomar.
    '   //  Cambia de signo a un numero( + a - y de - a +).
    lVal = ((Not lVal) + 1)
End Sub

 
Public Function LongToByte(ByVal lVal As Long) As Byte()
Dim bRet(0 To 3)        As Byte
    bRet(3) = (lVal And &HFF000000) \ &H1000000
    bRet(2) = (lVal And &HFF0000) \ &H10000
    bRet(1) = (lVal And &HFF00&) \ &H100
    bRet(0) = (lVal And &HFF)
    LongToByte = bRet
End Function

Private sub ColorLongToRGB(ByVal LngColor As Long, ByRef OutRed As Byte, ByRef OutGreen As Byte, ByRef OutBlue As Byte)
   OutBlue = (LngColor And &HFF0000) \ &H10000
   OutGreen = (LngColor And &HFF00&) \ &H100
   OutRed = (LngColor And &HFF)
End Function