VB6 Code - Membuat Efek Bayangan Pada Objek

Di bawah ini merupakan fungsi VB6 untuk membuat efek bayangan pada sebuah objek. Bagaimana implementasi dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

Public Function Shadow(frm As Form, ctl As Control, Optional shWidth = 3, Optional Color = vbGrayed)
    Dim oldWidth As Integer
    Dim oldScale As Integer
    
    With frm
        oldWidth = .DrawWidth
        oldScale = .ScaleMode
        .ScaleMode = 3
        .DrawWidth = 1
        frm.Line (ctl.Left + shWidth, ctl.Top + shWidth)-Step(ctl.Width - 1, ctl.Height - 1), Color, BF
        .DrawWidth = oldWidth
        .ScaleMode = oldScale
    End With
    
End Function

Contoh penggunaan fungsi membuat efek bayangan pada objek:

Private Sub Command1_Click()
    Shadow Me, Command1, 2, vbBlack
End Sub

Anda dapat menggunakannya pada objek secara bulk dengan menggunakan for...each.