Visual Basic

Private Sub createlblSlotArray()
     Dim i As Short
     ReDim lblSlot(3)
     For i = 1 To 3
         lblSlot(i) = New System.Windows.Forms.Label
         With lblSlot(i)
             .Tag = i
             .BackColor = System.Drawing.Color.Blue
             .BorderStyle = BorderStyle.Fixed3D
             AddHandler .MouseUp, AddressOf Me.Label1_MouseUp
         End With
     Next
     Me.Controls.AddRange(lblSlot)
     lblSlot(1).Location = New System.Drawing.Point(50, 50)
     lblSlot(2).Location = New System.Drawing.Point(100, 70)
     lblSlot(3).Location = New System.Drawing.Point(100, 90)
 End Sub

Private Sub Label1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
      If e.Button = MouseButtons.Right Then
          ContextMenu1.Show(sender, New Point(e.X, e.Y))
      End If
  End Sub

Public Sub SBVocalCut32(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)<br />
Dim SBVocCut32Buf() As Single, SBVocCut32CSample As Long<br />
Dim SBVocCut32DM As Single<br />
ReDim SBVocCut32Buf(length / 2) As Single<br />
<br />
Call CopyMemory(SBVocCut32Buf(0), ByVal buffer, length)<br />
    <br />
    For SBVocCut32CSample = 0 To length / 2 - 1 Step 2<br />
        SBVocCut32DM = ((0 - SBVocCut32Buf(SBVocCut32CSample)) + SBVocCut32Buf(SBVocCut32CSample + 1)) / 2<br />
        SBVocCut32Buf(SBVocCut32CSample) = SBVocCut32DM<br />
        SBVocCut32Buf(SBVocCut32CSample + 1) = SBVocCut32DM<br />
    Next SBVocCut32CSample<br />
    <br />
<br />
Call CopyMemory(ByVal buffer, SBVocCut32Buf(0), length)<br />
End Sub

Public Function PreFilterMessage(ByRef msg As Message) As Boolean Implements IMessageFilter.PreFilterMessage

    Const WM_KEYDOWN As Integer = 256
       If msg.Msg = WM_KEYDOWN Then
           Dim keyCode As Keys = (CType(CType(msg.WParam, Integer), Keys) And Keys.KeyCode)
           If pg.SelectedGridItem.PropertyDescriptor IsNot Nothing Then
               If (pg.SelectedGridItem.PropertyDescriptor.DisplayName = "Picture" Or _
                           pg.SelectedGridItem.PropertyDescriptor.DisplayName = "BackgroundPicture" _
                               And Not keyCode = Keys.Delete And Not (keyCode = Keys.Control And keyCode = Keys.C) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.V) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.X) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.A) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.Z) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.Y)) Then
                   Return True
               End If
           End If
       End If
       Return False
   End Function