C#

//This is in my form1.cs
 
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

public partial class Form1 : Form
    {
        private int WindowVx, WindowVy;
        private int WindowX, WindowY;
        private int width = Screen.PrimaryScreen.WorkingArea.Width;
        private int height = Screen.PrimaryScreen.WorkingArea.Height;

 private void timer1_Tick(object sender, EventArgs e)
        {

            WindowX = random.Next(width);
            WindowY = random.Next(height);
            int wx = random.Next(width / 2);
            int wy = random.Next(height / 2);
            WindowVx = random.Next (1, 4);
            WindowVy = random.Next (1, 4);
            this.Left = WindowX;
            this.Top = WindowY;
            this.Width = wx;
            this.Height = wx;
            //form.Show();
            //new Form1().Show();

        }


private void timer4_Tick (object sender, EventArgs e)
        {
            WindowX += WindowVx;
            if (WindowX < 0) {
                WindowVx = -WindowVx;
            } else if (WindowX + width > ClientSize.Width) {
                WindowVx = -WindowVx;
            }


            this.Refresh ();
        }

//The following part is in form1.designer.cs

 this.timer4 = new System.Windows.Forms.Timer (this.components);

            this.timer4.Enabled = true;
            this.timer4.Interval = 1000;
            this.timer4.Tick += new System.EventHandler (this.timer4_Tick);

        private System.Windows.Forms.Timer timer4;

For i = 1 To ListView1.Items.Count
             ' Dim Cm1 As New SqlCommand
             'Dim dr1 As New SqlDataReader
             'Dim da1 As New SqlDataAdapter
 
             Try
 
                 Dim Cm1 As New SqlCommand
                 '  Dim dr1 As New SqlDataReader
 
                 Cm1.Connection = con
                 Cm1.CommandType = CommandType.StoredProcedure
                 Cm1.CommandText = "sp_ins_tbl_GE_Det"
 
                 Cm1.Parameters.AddWithValue("@GE_HDR_TRAN_ID", TRN_ID)
                 Cm1.Parameters.AddWithValue("@val_GE_HDR_ID", Transaction_No_hdr_ID)
 
                 If con.State = ConnectionState.Closed Then
                     con.Open()
                 End If
 
                 If rbPurchase.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "PURCH")
                 ElseIf rbSales.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "SALES")
                 ElseIf RBSTOCKTRANSFEROUT.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "STKTROUT")
                 ElseIf rbInterDept.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "INTRDEPT")
                 ElseIf rbCONTRACTORITEM.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "CONTITEM")
                 ElseIf rbSalesReturn.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "SALESRET")
                 ElseIf rbPurchaseReturn.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "PURCHRET")
                 ElseIf rbGatePass.Checked = True Then
                     Cm1.Parameters.AddWithValue("@val_Type_Of_Vehicle", "GATEPASS")
 If (rbSales.Checked = True Or RBSTOCKTRANSFEROUT.Checked = True Or rbSalesReturn.Checked = True) Then
                        '            ' Cm1.Parameters.AddWithValue("@val_Customer_Code", lvi.SubItems.Add(CStr(dr("Customer_Code"))))
                        Cm1.Parameters.AddWithValue("@val_Customer_Code", lvi.SubItems.Add(CStr(dr("Customer_Code"))))
                    Else
                        Cm1.Parameters.AddWithValue("@val_Customer_Code", "")
                    End If
  If con.State = ConnectionState.Closed Then
                        con.Open()
                    End If

                    dr = Cm1.ExecuteReader()
                    ' Cm1.ExecuteNonQuery()
                    Cm1.Dispose()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            Next
                 End If