TKSoft-Online

Private Declare Function MoveWindow Lib "user32" _
                   (ByVal Hwnd As Long, _
                    ByVal X As Long, _
                    ByVal y As Long, _
                    ByVal nWidth As Long, _
                    ByVal nHeight As Long, _
                    ByVal brepaint As Boolean) As Boolean

Sub AccessFensterSetzen(intModus As Integer)

  Select Case intModus
    Case 1: MoveWindow Application.hWndAccessApp, 10, _
                       10, 640, 480, 1
    Case 2: MoveWindow Application.hWndAccessApp, 10, _
                       10, 800, 600, 1
    Case 3: MoveWindow Application.hWndAccessApp, 10, _
                       10, 1024, 768, 1
  End Select

End Sub