Strangely enough, the following does not yield a main form bigger than the screen:
|
Jabaco Source
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Option Explicit
Public Sub Form_Load()
Me.BorderStyle = vbFixedDialog
End Sub
Public Sub Form_Resize()
Me.Move(-100, -100, Screen.Width + 200, Screen.Height + 300)
End Sub
Public Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
system.exit 1
End If
End Sub
|
Any ideas, why?
b.t.w.: with Borderstyle = vbBSNone you can still close the application by using the task tray.
Greetings
A1880