BringWindowToTop

[올란도]

Private Declare Function BringWindowToTop Lib "user32" _
        (ByVal hwnd As Long) As Long

Private Sub cmd_exit_Click()
   End
End Sub

Private Sub cmd_pic1_Click()
  Dim x As Lon

  
     x = BringWindowToTop(Picture1.hwnd)

End Sub

Private Sub cmd_pic2_Click()
  Dim x As Long
 
     x = BringWindowToTop(Picture2.hwnd)

End Sub

Private Sub Form_Load()

End Sub

bringwindoetotop.zip

첨부파일첨부된 파일이 1개 있습니다.

• zip 파일 bringwindoetotop.zip 다운로드