Private Sub All_MouseMove(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove, _
      CheckBox1.MouseMove, PictureBox1.MouseMove
        '...
    End Sub

    Private Sub AddHandler_MyControl(ByVal c As Control)
        AddHandler c.MouseMove, AddressOf Me.All_MouseMove
    End Sub
 
    Private Sub AddHandles()
        Me.AddHandler_MyControls(Me)
        Me.AddHandler_MyControls(CheckBox1)
        Me.AddHandler_MyControls(PictureBox1)
    End Sub