🚀 go-pugleaf

| $B#V#B#4$G%U%)!<%`$r>o$K!J%"%/%F%#%V$G$J$$;~$b!K(J
| $BA0LL$KI=<($5$;$kJ}K!$O$J$$$N$G$7$g$&$+!)(J

Windows API $B$N(J  SetWindowPos  $B$G=PMh$?$H;W$$$^$9(J!

Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal
cx As Integer, ByVal cy As Integer, ByVal fuFlags As Integer)
' Windows API$BMxMQ$N@k8@(J
Global Const SWP_NOACTIVATE = &H10  '$B%&%#%s%I%&$r%"%/%F%#%V$K$7$J$$(J
Global Const SWP_SHOWWINDOW = &H40  '$B%&%#%s%I%&$rI=<($9$k(J
Global Const HWND_TOPMOST = -1      '$B:G>e0LI=<($rA*Br(J

Sub SET_TOP()
    '$B%U%)!<%`$r:G>e0LI=<($K$9$k$,%"%/%F%#%V$K$O$7$J$$(J
    SetWindowPos Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
SWP_SHOWWINDOW
End Sub

Private Sub Form_Load()
    SET_TOP                               '$B%U%)!<%`$r:G>e0LI=<($K$9$k(J
End Sub


$B0J>e;29M$K$J$l$P9,$$$G$9!#(J
-- 
Visual Basic$B$GM7$\$&(J TKSoftware T-FUJII
http://home.interlink.or.jp/~t-fujii/tfkan001.html
t-fujii@interlink.or.jp