Visual Basic

Friend Class UnselectableButton
      Inherits Button
      ' The WS_EX_NOACTIVATE value for dwExStyle prevents foreground
      ' activation by the system.
      Private Const WS_EX_NOACTIVATE As Long = &H8000000L
      ''' <summary>
      ''' Set the form style to WS_EX_NOACTIVATE so that it will not get focus.
      ''' </summary>
      Protected Overrides ReadOnly Property CreateParams() As CreateParams
          <PermissionSet(SecurityAction.LinkDemand, Name:="FullTrust")>
          Get
              Dim cp As CreateParams = MyBase.CreateParams
              cp.ExStyle = cp.ExStyle Or CInt(Fix(WS_EX_NOACTIVATE))
              Return cp
          End Get
      End Property


      Public Sub New()
          MyBase.New()

          Me.SetStyle(ControlStyles.Selectable, False)
      End Sub


      Private Sub InitializeComponent()
          Me.SuspendLayout()
          '
          'UnselectableButton
          '
          Me.TabStop = False
          Me.ResumeLayout(False)

      End Sub
  End Class

Imports System.Data.OleDb

Public Class Tapes_info
    Private dtGlobal As New DataTable


    Private Sub Tapes_info_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dtGlobal.Clear()
        Using cn As New OleDb.OleDbConnection
            Dim Builder As New OleDbConnectionStringBuilder With {.DataSource = IO.Path.Combine(Application.StartupPath, "Backuptapes.xls"), .Provider = "Microsoft.ACE.OLEDB.12.0"}
            Builder.Add("Extended Properties", "Excel 12.0; IMEX=1;HDR=No;")
            cn.ConnectionString = Builder.ConnectionString
            cn.Open()
            Using cmd As OleDbCommand = New OleDbCommand With {.Connection = cn}

                cmd.CommandText = "SELECT TOP 5130 F1 As Tapes, F2 As Containere, F3 as ContainerRef, F4 as DateOut FROM [Tapese$]"
                Dim dr As System.Data.IDataReader = cmd.ExecuteReader
                dtGlobal.Load(dr)
                LstTape.DisplayMember = "Tapes"
                LstTape.DataSource = dtGlobal
                txtContainer.DataBindings.Add("Text", dtGlobal, "Containere")
                txtContainerRef.DataBindings.Add("Text", dtGlobal, "ContainerRef")
                txtDateOut.DataBindings.Add("Text", dtGlobal, "Dateout")

            End Using
        End Using
    End Sub





Private Sub BtnSearchDateOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearchDateOut.Click

    For i As Integer = 0 To dtGlobal.Rows.Count - 1
        If IsDBNull(dtGlobal.Rows(i)("Dateout")) Then
            dtGlobal.Rows(i)("Dateout") = ""
        End If
    Next

    Dim query = From item In dtGlobal.AsEnumerable() Where item.Field(Of String)("Dateout").StartsWith(txtSearchDateOut.Text) Select item
    If query.Count > 0 Then
        Dim newDT As DataTable = query.CopyToDataTable()

        MsgBox(newDT.Rows.Count.ToString() & " Date out found.")

        Dim frm As New Form()
        Dim dgv As New DataGridView()
        dgv.DataSource = newDT
        dgv.Refresh()
        frm.Controls.Add(dgv)
        dgv.Dock = DockStyle.Fill
        frm.Size = New Size(1400, 700)
        frm.Show()

    Else
        MsgBox("There is no Date for this found.")
    End If

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            OpenConnection()
            qry = "SELECT * FROM customer"
            dbcommand.Connection = DbConn.conn
            dbcommand.CommandText = qry
            dbadapter.SelectCommand = dbcommand
            dbadapter.Fill(stdata, "Customer")

            Dim objRpt As New CustomerRpt
            objRpt.SetDataSource(stdata.Tables("Customer"))
            rptViewer.ReportSource = objRpt
            rptViewer.RefreshReport()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            CloseConnection()
        End Try

    End Sub

Public Class Form1
    Dim cursorX, cursorY As Integer
    Dim dragging As Boolean
    Dim labelno As Integer = 1

    Private Sub Control_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        dragging = True
        cursorX = e.X
        cursorY = e.Y


        Dim label2 As New Label
        labelno += 1
        label2.Location = New Point(Label1.Location.X, Label1.Location.Y)
        label2.Name = "Label" + labelno.ToString
        label2.Text = label2.Location.ToString
        Me.Controls.Add(label2)

    End Sub

    Private Sub Control_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
        dragging = False
    End Sub

    Private Sub control_MouseMOve(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If dragging Then
            Dim ctrl As Control = CType(sender, Control)
            ctrl.Left = (ctrl.Left + e.X) - cursorX
            ctrl.Top = (ctrl.Top + e.Y) - cursorY
            ctrl.BringToFront()
        End If
    End Sub

If you have clarification please inform me.



Thanks