Visual Basic

Dim pt as point
dim hdMousDown as Boolean

    Private Sub SetPoint()
        If hdMousedown = True Then hdMousedown = False Else hdMousedown = True
        pt = Me.PointToClient(Control.MousePosition)
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseDown
        SetPoint()
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseUp
        SetPoint()
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseMove
        If hdMousedown = True Then
            Me.Location = New Point(Control.MousePosition.X - pt.X, Control.MousePosition.Y - pt.Y)
        End If
    End Sub

TemplateField tf = new TemplateField ();        <br />
        TemplateBuilder dBdr = new TemplateBuilder ();<br />
        dBdr.AppendLiteralString ("<select name="\"ctl00$DefaultContent$GridView1$ctl09$DropDownList1\"" id="\"ctl00_DefaultContent_GridView1_ctl09_DropDownList1\"">");<br />
        dBdr.AppendLiteralString ("</select>");<br />
        tf.ItemTemplate = dBdr; <br />
        <br />
        GridView1.Columns.Add (tf);

<br />
TemplateField tf = new TemplateField ();  <br />
tf.ItemTemplate = LoadControl("mycontrols.ascx"); <br />
 GridView1.Columns.Add (tf);

Atheeque wrote:

Select 'AsplData','Select * from Customer order by customer','C:\test.xls'

johnsevennl wrote:

How long can I keep on using VB6?

johnsevennl wrote:

What would be an interesting update?