Option Explicit

Private Sub Form_Load()
    Set g_SetSubClassForm = Me
    SubClass
End Sub

Private Sub Form_Unload(Cancel As Integer)
    UnSubClass
End Sub

Sub Form_Move()
    Dim lngPixLeft  As Long
    Dim lngPixTop   As Long
    
    lngPixLeft = Me.Left ¥ Screen.TwipsPerPixelX
    lngPixTop = Me.Top ¥ Screen.TwipsPerPixelY
    Me.Caption = "(" & lngPixLeft & "," & lngPixTop & ")"
End Sub