baslıksız userform

[uguristanbul]

arkadaslar
formun baslıgını (mavi kısım) nasıl kaldırır ve sayfada belli bir koordinata nasıl uygularım

 

[uguristanbul]

çözdüm arkadaslar uğrasmanıza gerek yok

 

[Necdet]

çözdüm arkadaslar uğrasmanıza gerek yok

Nasıl çözdüğümü kimseye söylemem diyorsunuz yani?

 

[uguristanbul]

yok hocam estafurullah netice burdan edindiğim bilgilerle çözdüm
kod aşagıdaki gibi

ption Explicit
Dim p As Integer
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub UserForm_activate()
On Error Resume Next
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub