Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Timer1.Enabled = True
    Call LVWloader()
    Call Locker(True)
    Call objLocker(False)


    With ListView1.Columns
        .Add("Semen ID", 50, HorizontalAlignment.Center)
        .Add("Bullname", 150, HorizontalAlignment.Center)
        .Add("Breed", 150, HorizontalAlignment.Center)
        .Add("Quantity", 50, HorizontalAlignment.Center)
        .Add("Location", 50, HorizontalAlignment.Center)
        .Add("Date Purchased", 50, HorizontalAlignment.Center)

    End With
    For i As Integer = 0 To ListView1.Columns.Count - 1
        ListView1.Columns(i).Width = -2
    Next i
End Sub

Public Sub LVWloader()
    Dim myCommand As New MySqlCommand
    Dim myReader As MySqlDataReader
    Dim conn As MySqlConnection
    conn = New MySqlConnection
    conn.ConnectionString = "server = localhost;username= root;password= a;database= semenis"
    Try
        conn.Open()
    Catch mali As MySqlException
        MsgBox("connot establish connection")
    End Try

    ListView1.Items.Clear()
    With myCommand
        .Connection = conn
        .CommandText = "Select * from inventory"
    End With
    myReader = myCommand.ExecuteReader
    While myReader.Read()
        With ListView1
            .Items.Add(myReader(0))
            With .Items(.Items.Count - 1).SubItems
                .Add(myReader.Item(1))
                .Add(myReader.Item(2))
                .Add(myReader.Item(3))
                .Add(myReader.Item(4))
                .Add(myReader.Item(5))

            End With
        End With
    End While
End Sub