Private Sub Command1_Click()
  Call Command1.ZOrder(0)
  ''other stuff maybe?

End Sub

Which_Object_Is_Under_The_Mouse_Cursor_At_Mouse_Coordinate(mouse_x as Integer, mouse_y as Integer) as Integer

Bring_The_Object_Number_In_The_Argument_To_The_Top(The_Argument as Integer) as Boolean

for i = 0 to window_zorder_count -1
    if intersectRect(dstrect, mouse_rect, window(window_zorder_list(i)).RECT) > 0 then
        'bring that window to the top
        exit for
    end if
next i

VERSION 5.00
Begin VB.Form Form1
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Jasmine's Awesome GUI Demo"
   ClientHeight    =   9000
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   600
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   800
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   435
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2475
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type rect
  X As Integer
  Y As Integer
  xL As Integer
  yL As Integer
  z As Integer
  colour As Long
End Type
Dim rect(255) As rect
Dim rects As Integer
Dim sort(255) As Integer
Dim dragx, dragy As Integer

Public Function WhichRect(ByVal X, ByVal Y)
WhichRect = 0: i = 1
Do
  j = sort(i)
  If X >= rect(j).X And Y >= rect(j).Y And X <= rect(j).X + rect(j).xL And Y <= rect(j).Y + rect(j).yL Then WhichRect = j
  i = i + 1
Loop While WhichRect = 0 And i <= rects
End Function

Public Function SendToFront(ByVal N)
S = rect(N).z
For i = 1 To S
  j = sort(i)
  rect(j).z = (rect(j).z Mod S) + 1
Next
DoSort
End Function

Public Sub DoSort()
For i = 1 To rects
  sort(rect(i).z) = i
Next
End Sub

Public Sub redraw()
Cls
For i = 1 To rects
  j = sort(rects - i + 1)
  Line (rect(j).X, rect(j).Y)-(rect(j).X + rect(j).xL, rect(j).Y + rect(j).yL), rect(j).colour, BF
  Form1.CurrentX = rect(j).X + rect(j).xL / 2
  Form1.CurrentY = rect(j).Y + rect(j).yL / 2
  Form1.Print rect(j).z
Next
Command1.Caption = rects & " GUI Object(s)"
End Sub


Public Sub MakeRect(ByVal X, ByVal Y, ByVal xL, ByVal yL, ByVal colour)
If rects < 255 Then
rects = rects + 1
rect(rects).X = X: rect(rects).Y = Y
rect(rects).xL = xL: rect(rects).yL = yL
rect(rects).z = rects
sort(rects) = rects
rect(rects).colour = colour
End If
End Sub

Public Sub DeleteRect(ByVal N)
If rects > 0 And N > 0 Then
S = rect(N).z
For i = S + 1 To rects
  j = sort(i)
  rect(j).z = rect(j).z - 1
Next
rect(N) = rect(rects)
rects = rects - 1
DoSort
End If
End Sub



Private Sub Form_Load()
Command1_Click
End Sub

Private Sub Command1_Click()
MakeRect 600 * Rnd, 400 * Rnd, 50 + Rnd * 200, 50 + Rnd * 200, RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
redraw
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1:
    dragx = X: dragy = Y
    SendToFront WhichRect(X, Y)
Case 2:
    DeleteRect WhichRect(X, Y)
End Select
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
  i = sort(1)
  rect(i).X = rect(i).X + X - dragx
  rect(i).Y = rect(i).Y + Y - dragy
  dragx = X: dragy = Y
  redraw
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
redraw
End Sub

If Button = 1 Then
  i = sort(1)
  rect(i).X = rect(i).X + X - dragx
  rect(i).Y = rect(i).Y + Y - dragy
  dragx = X: dragy = Y
  redraw
End If

Dim DraggedRect as Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1:
    dragx = X: dragy = Y
    DraggedRect = WhichRect(X, Y)
    SendToFront DraggedRect
Case 2:
    DeleteRect WhichRect(X, Y)
End Select
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 and DraggedRect>0 Then
  i = DraggedRect
  rect(i).X = rect(i).X + X - dragx
  rect(i).Y = rect(i).Y + Y - dragy
  dragx = X: dragy = Y
  redraw
End If
End Sub