.NET (Core and Framework)

Private Sub OnPaintPic1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim rcPaper = Me.ClientRectangle
        Dim time_start As DateTime = Now
        Dim t_span As TimeSpan

        e.Graphics.FillRectangle(Brushes.DarkGray, rcPaper)
        e.Graphics.DrawRectangle(Pens.Black, rcPaper)
        ' Draw the grid.
        ' If bShowGrid Then
        For x As Integer = 0 To rcPaper.Width Step 10
            For y As Integer = 0 To rcPaper.Height Step 10
                e.Graphics.DrawLine(Pens.Azure, x, y, x + 0.5F, y + 0.5F)
            Next y
        Next x
        'End If
        
        t_span = Now - time_start

    End Sub

Public Event DrawFinished(ByVal sControlName As String)

Public Class Form1
    Private nDrawItems As Integer = 0
...
    Private Sub Picture1_DrawFinished(ByVal sName As String) Handles Picture1.DrawFinished
        If nDrawItems = 0 Then Exit Sub
        nDrawItems = nDrawItems - 1
    End Sub

    Private Sub Picture2_DrawFinished(ByVal sName As String) Handles Picture2.DrawFinished
        If nDrawItems = 0 Then Exit Sub
        nDrawItems = nDrawItems - 1
    End Sub
...
Private Sub MyScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
        If nDrawItems > 0 Then Exit Sub

        nDrawItems = 2
        Invalidate(True)
        While nDrawItems > 0
            'Threading.Thread.Sleep(5)
            Application.DoEvents()
        End While
    End Sub

MarkyMark1961 wrote:

Can someone explain to me how to find the hWnd property of a web ListBox?

Sanjqfar wrote:

answer immediatily.