USERFORM caption iptali

[cenk77ist]

userformdaki caption başlık kısmını iptal edebiliormuyuz gözükmesini istemiyorum.. bir progressbar lı uygulamam var da..

 

[emrexcel123]

kod

Option 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
bu kodu kullanabilirsin...

 

[cenk77ist]

caption gizlenmedi sadece close düğmesi sağ üst köşedeki kayboldu ...

 

[emrexcel123]

ekte

ekte userform görünümleri ile ilgili bir örnek var bir inceler misin...