Private Sub Form_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  For i = 1 to 40
    image(i).visible = false
  Next
End Sub
 

Option Explicit
 
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 
Function fGetDrives() As String
    Dim lStrLen&
    Dim sDrives As String * 255
 
    lStrLen = GetLogicalDriveStrings(255, sDrives)
    fGetDrives = Left$(sDrives, lStrLen)
End Function
 
Function fDriveType(strDriveName As String) As String
    Dim lDrvType&
    Dim strDrive()
 
    lDrvType = GetDriveType(strDriveName)
    strDrive = Array( _
        "Unknown Drive Type", "Drive does not exist", "Removable Media", _
        "Fixed Drive", "Network Drive", "CD Rom", "Ram Disk" _
    )
    fDriveType = strDrive(lDrvType)
End Function
 
 
Sub sListAllDrives()
    Dim sAllDrives$, sDrive$()
    Dim strTmp As String
 
    sAllDrives = fGetDrives()
    sDrive = Split(sAllDrives, vbNullChar)
 
    For i = 0 To UBound(sDrive)
        If (sDrive(i) <> vbNullString) Then
            Debug.Print Spc(2); fDriveType(sDrive(i)) & ": " & sDrive(i)
        End If
    Next
End Sub
 
Private Sub Form_Load()
    Debug.Print "All available drives: "
 
    Call sListAllDrives
End Sub
 

'
' Modulo de clase: MyInterface.cls
'
 
Option Explicit
 
Sub Foo()
 
End Sub
 
Function Something(ByVal Arg As String)
 
End Function
 

'
' Modulo de clase: MyClass.cls
'
Option Explicit
 
Implements MyInterface
 
Property Get ClassName()
    ClassName = "Test Class"
End Property
 
Private Sub MyInterface_Foo()
    Debug.Print "Foo called from MyClass"
End Sub
 
Private Function MyInterface_Something(ByVal Arg As String) As Variant
    Debug.Print "Something from MyClass like: " & Arg
End Function
 

'
' Módulo estándar Test.bas
'
Option Explicit
 
Sub Test()
    Dim csInterface As MyInterface
    Dim csClass     As New MyClass
 
    Debug.Print csClass.ClassName
 
    Set csInterface = csClass
 
    Call csInterface.Something("Hola Mundo")
End Sub
 

Test Class
Something from MyClass like: Hola Mundo

Select Case (Numero)
  Case 0 To 14: ' Do Something
  Case 15 To 29: ' Do Something
  Case Else: ' Otro número fuera de los dos rangos.
End Select
 

Dim btData() As Byte
Dim sString$, sDecrypt$
 
sString = "BRdTYTQ@QRG^"
 
btData = StrConv(sString, vbFromUnicode)
 
sDecrypt = Decrypt(btData)
 
Debug.Print sDecrypt
 

Sub EncryptFile(Source As String)
  Dim btData() As Byte
  Dim sEnc$
 
  Open Source For Binary As #1
 
  ReDim btData(LOF(1)) As Byte
 
  Get #1,  1, btData
 
  sEnc = Encrypt(btData)
 
  Close #1
End Sub
 
Function Encrypt(pData) As String
  Encrypt = Crypto(pData, True)
End Function
 
Function Decrypt(pData) As String
  Decrypt = Crypto(pData, False)
End Function
 
Function Crypto(pData, Optional bEncrypt As Boolean = True) As String
  Dim iFlag%
  Dim i&, lLen&
 
  lLen = UBound(pData)
 
  If (bEncrypt) Then iFlag = -1 Else iFlag = 1
 
  For i = 0 To lLen
    pData(i) = pData(i) + ((i + (i Mod lLen) + 17) * iFlag)
  Next
 
  Crypto = StrConv(pData, vbUnicode)
End Function