Thank you BobRodes for replying to all my posts.
You always giving me a lot of information to improve my programming skills.

I already get it !
xD


BTW, heres my code ..

    Dim mc As Variant
    For Each mc In MDIForm1.Controls
        If TypeName(mc) = "Menu" Then
            If mc.Caption <> "-" Then
                With ListView1
                .ColumnHeaders.Clear
                                    .ColumnHeaders.Add(, , "Menu Caption").Width = 3000
                                    .ColumnHeaders.Add(, , "Menu Name").Width = 2000
                    With .listitems
                        With .Add(, , mc.Caption)
                                            .ListSubItems.Add , , mc.Name
                        End With
                    End With
                End With
            End If
        End If
    Next

Thx for replies, I did all your suggestions and it gave me the hint to solve my problem =)

chuckjessup
BobRodes

modi123_1, on 04 August 2011 - 07:23 AM, said:

The code for activating the skin is applied to the form (Form1.ApplySkin HwNd) together with the code for disabling the close button (DisableCloseWindowButton Me). The expected result is that the close button will be disabled and so the active skin will take place.

Form1.ApplySkin HwNd
DisableCloseWindowButton Me

It did not work, the skinned form still having the close button. Setting the value of Control Box at the form property as false also didnt take effect.

'cmdbtn1
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFile Label1.Caption, lbltarget.Caption, True

This code works =)
Thx for your reply, it helped me to explore more codes.