Quitar Barra de Titulos

Hola Diego,

Pon el siguiente codigo en el modulo del UserForm:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long _
, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84080080
DrawMenuBar hWnd
End Sub


fuente: http://tinyurl.com/bzgpf

Saludos,
KL


"diegoar" wrote in message news:

Buenas tardes, necesito me ayuden en lo siguiente: necesito quitar de
un form la barra de titulos por codigo. es posible??? Si tienen algun
fragmento de codigo que lo resulva los voy a agradecer.-

Saludos