[سعود]

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Dim ax, ay As Integer
    Dim ok As Boolean
    Private Sub fildg()
        Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
        Dim con As New OleDbConnection(str)
        Dim ds As New DataSet
        ds.Clear()
        DataGridView1.DataSource = Nothing

        Dim da As New OleDbDataAdapter("select tb1.tid,tb1.tn,tb2.mo from tb1,tb2", con)
        da.Fill(ds, "tb1")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb1"
        DataGridView1.Columns(0).HeaderText = "م"
        DataGridView1.Columns(0).Width = "60"
        DataGridView1.Columns(1).HeaderText = "الاسم"
        DataGridView1.Columns(1).Width = "200"
        DataGridView1.Columns(2).HeaderText = "الجوال"
        DataGridView1.Columns(2).Width = "200"




    End Sub
    Private Sub Panel1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ok = True
            ax = Windows.Forms.Cursor.Position.X - Me.Left
            ay = Windows.Forms.Cursor.Position.Y - Me.Top
        End If
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If ok Then
            Me.Left = Windows.Forms.Cursor.Position.X - ax
            Me.Top = Windows.Forms.Cursor.Position.Y - ay

        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        ok = False
    End Sub
    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Me.Dispose()
        Me.Close()
        End
    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        fildg()
    End Sub
End Class