hi everyone, i need some help
i have a form that i want to display on fullscreen independent of screen
resolution(1024,800,....) i, want to show always on full screen...

the second question is, in this form i don´t want the user rezise it or move
it the form must be "locked" from any movement,the user only put values in
the boxes available.....

sorry about my english if it is not good

thanks in advance
Miguel

Try something like this (put it in the UserForm's code module):

Private Sub UserForm_Initialize()
With Application
Top = .Top
Height = .Height
Left = .Left
Width = .Width
End With
Dim lHandle As Long, lCount As Long
On Error Resume Next
lHandle = FindWindowA(vbNullString, Me.Caption)
If lHandle < 0 Then
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount
End If
End Sub

--

Vasant



"Liedson31" wrote in message
...
hi everyone, i need some help
i have a form that i want to display on fullscreen independent of screen
resolution(1024,800,....) i, want to show always on full screen...

the second question is, in this form i don´t want the user rezise it or
move
it the form must be "locked" from any movement,the user only put values in
the boxes available.....

sorry about my english if it is not good

thanks in advance
Miguel

thanks vasant

the with application... works fine but after the end with part,the
FindWindowA my excel don´t recognize it,gives me a "sub or function not
defined".it is a reference that i must insert? if it works what do the lines :
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount

thanks again for your help
Miguel


Try something like this (put it in the UserForm's code module):

Private Sub UserForm_Initialize()
With Application
Top = .Top
Height = .Height
Left = .Left
Width = .Width
End With
Dim lHandle As Long, lCount As Long
On Error Resume Next
lHandle = FindWindowA(vbNullString, Me.Caption)
If lHandle < 0 Then
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount
End If
End Sub

--

Vasant



"Liedson31" wrote in message
...
hi everyone, i need some help
i have a form that i want to display on fullscreen independent of screen
resolution(1024,800,....) i, want to show always on full screen...

the second question is, in this form i don´t want the user rezise it or
move
it the form must be "locked" from any movement,the user only put values in
the boxes available.....

sorry about my english if it is not good

thanks in advance
Miguel

I apologize; I forgot the declarations. Paste the following at the top of
your module:

Private Const MF_BYPOSITION As Long = &H400
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long

--

Vasant

"Liedson31" wrote in message
...
thanks vasant

the with application... works fine but after the end with part,the
FindWindowA my excel don´t recognize it,gives me a "sub or function not
defined".it is a reference that i must insert? if it works what do the
lines :
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount

thanks again for your help
Miguel


Try something like this (put it in the UserForm's code module):

Private Sub UserForm_Initialize()
With Application
Top = .Top
Height = .Height
Left = .Left
Width = .Width
End With
Dim lHandle As Long, lCount As Long
On Error Resume Next
lHandle = FindWindowA(vbNullString, Me.Caption)
If lHandle < 0 Then
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount
End If
End Sub

--

Vasant



"Liedson31" wrote in message
...
hi everyone, i need some help
i have a form that i want to display on fullscreen independent of
screen
resolution(1024,800,....) i, want to show always on full screen...

the second question is, in this form i don´t want the user rezise it
or
move
it the form must be "locked" from any movement,the user only put
values in
the boxes available.....

sorry about my english if it is not good

thanks in advance
Miguel

Sorry the time i took to reply.....but i've been "captured" by my boss for
another application and i put this one back....but once i´ve started it
again...i remember my earlier problem :)))))))

it works perfectly!!!

Thanks very much
Miguel

"Vasant Nanavati" wrote:

I apologize; I forgot the declarations. Paste the following at the top of
your module:

Private Const MF_BYPOSITION As Long = &H400
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long

--

Vasant

"Liedson31" wrote in message
...
thanks vasant

the with application... works fine but after the end with part,the
FindWindowA my excel don´t recognize it,gives me a "sub or function not
defined".it is a reference that i must insert? if it works what do the
lines :
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount

thanks again for your help
Miguel


Try something like this (put it in the UserForm's code module):

Private Sub UserForm_Initialize()
With Application
Top = .Top
Height = .Height
Left = .Left
Width = .Width
End With
Dim lHandle As Long, lCount As Long
On Error Resume Next
lHandle = FindWindowA(vbNullString, Me.Caption)
If lHandle < 0 Then
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0, MF_BYPOSITION
Next lCount
End If
End Sub

--

Vasant



"Liedson31" wrote in message
...
hi everyone, i need some help
i have a form that i want to display on fullscreen independent of
screen
resolution(1024,800,....) i, want to show always on full screen...

the second question is, in this form i don´t want the user rezise it
or
move
it the form must be "locked" from any movement,the user only put
values in
the boxes available.....

sorry about my english if it is not good

thanks in advance
Miguel

Thanks for the feedback!

--

Vasant

"Liedson31" wrote in message
...
Sorry the time i took to reply.....but i've been "captured" by my boss for
another application and i put this one back....but once i´ve started it
again...i remember my earlier problem :)))))))

it works perfectly!!!

Thanks very much
Miguel

"Vasant Nanavati" wrote:

I apologize; I forgot the declarations. Paste the following at the top
of
your module:

Private Const MF_BYPOSITION As Long = &H400
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long

--

Vasant

"Liedson31" wrote in message
...
thanks vasant

the with application... works fine but after the end with part,the
FindWindowA my excel don´t recognize it,gives me a "sub or function
not
defined".it is a reference that i must insert? if it works what do the
lines :
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0,
MF_BYPOSITION
Next lCount

thanks again for your help
Miguel


Try something like this (put it in the UserForm's code module):

Private Sub UserForm_Initialize()
With Application
Top = .Top
Height = .Height
Left = .Left
Width = .Width
End With
Dim lHandle As Long, lCount As Long
On Error Resume Next
lHandle = FindWindowA(vbNullString, Me.Caption)
If lHandle < 0 Then
For lCount = 1 To 6
DeleteMenu GetSystemMenu(lHandle, False), 0,
MF_BYPOSITION
Next lCount
End If
End Sub

--

Vasant



"Liedson31" wrote in message
...
hi everyone, i need some help
i have a form that i want to display on fullscreen independent of
screen
resolution(1024,800,....) i, want to show always on full screen...

the second question is, in this form i don´t want the user rezise
it
or
move
it the form must be "locked" from any movement,the user only put
values in
the boxes available.....

sorry about my english if it is not good

thanks in advance
Miguel