게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

친절하신 답변에 도움이 정말 많이 되었습니다.
그래서 일단 alt+tab의 문제를 제외한 나머지는 해결하게 되었구요
감사의 표시로 구현한 소스를 올려볼까합니다.
허접하지만 혹시라도 필요하신분이 계실까하구요.
항상 좋은답변 감사드리고 다음에 또 뵙겠습니다.
------------------------------------------------------------------
Public WithEvents objHTMLDoc As HTMLDocument '말씀하신대로 선언

Private Sub Form_Load()
'현재의 해상도값을 변수에 저장하는 부분
lWidth = Screen.Width / Screen.TwipsPerPixelX
lHeight = Screen.Height / Screen.TwipsPerPixelY

Call changeDisplay '1024*768 로 해상도 바꾸어주는 함수.
eWB.Navigate App.Path + "\default.html" '실행될 html문서 경로
End Sub

Private Sub Form_Resize()
Form1.eWB.Height = Form1.Height '웹브라우저컨트롤을 폼크기에 맞게
Form1.eWB.Width = Form1.Width

If (Form1.WindowState = 2 And WinState = 1) Then
'만약 폼이 최소화된상태에서 전체화면으로 바뀔경우에만 1024*768로 변경
Call changeDisplay
End If
WinState = Form1.WindowState '현재 폼의 형태를 다시 저장

End Sub

Private Function objHTMLDoc_onclick() As Boolean

If (objHTMLDoc.parentWindow.event.srcElement.Id) = "ImgExit" Then
'default.htm의 나가기 이미지버튼을 클릭했을때 원래해상도로 바꾸고 폼종료
Call restoreDisplay
Unload Form1
Set Form1 = Nothing
ElseIf (objHTMLDoc.parentWindow.event.srcElement.Id) = "ImgMin" Then
'default.htm의 최소화 이미지버튼을 클릭했을때 원래해상도로바꾸고 폼최소화
Call restoreDisplay
Form1.WindowState = 1
End If
objHTMLDoc_onclick = True
End Function

Private Sub eWB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set objHTMLDoc = eWB.Document
End Sub

Private Sub restoreDisplay() '원래 해상도로 바꾸어주는 함수(모듈은 첨부않했어요)
Dim DevM As DEVMODE
Dim erg&
erg& = EnumDisplaySettings(0&, 0&, DevM)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = lWidth
DevM.dmPelsHeight = lHeight
ChangeScreenSettings lWidth, lHeight, 16
End Sub

Private Sub changeDisplay() '1024*768 해상도로 바꾸어주는 함수 (모듈첨부않했음)
Dim DevM As DEVMODE
Dim erg&
erg& = EnumDisplaySettings(0&, 0&, DevM)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = 1024
DevM.dmPelsHeight = 768
ChangeScreenSettings 1024, 768, 16
End Sub