Прикольные коды

Option Explicit
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
 
Private Sub Form_Load()
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Command1_Click()
    mciSendString "Set CDAudio Door Open Wait", 0, 0, 0
End Sub
 
Private Sub Command2_Click()
    mciSendString "Set CDAudio Door Closed Wait", 0, 0, 0
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Извлеч"
    Command2.Caption = "Вставить"
End Sub

Option Explicit
 
Private Sub Form_Load()
    MsgBox "Ваш IP: " & Winsock1.LocalIP
End Sub

Const SND_ASYNC = &H1         '  play asynchronously
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Private Sub Command1_Click()
'    sndPlaySound "notify", SND_ASYNC
'    sndPlaySound "Вход в Windows XP", SND_ASYNC
    sndPlaySound "tada", SND_ASYNC
End Sub

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
 
Private Sub Form_Load()
    Dim VolName$, VolNumber&, MCM&, FSF&, FSys$, erg&
    Const DiscLabel = "D:" 'Или другая буква
 
    If GetVolumeInformation(DiscLabel, VolName$, 127&, VolNumber&, MCM&, FSF&, FSys$, 127&) = 0 Then
        MsgBox "Нет"
    Else
        MsgBox "Есть"
    End If
End Sub