Efek Shadow Dengan Visual Basic 6.0

pertama - tama buat prosedur seperti di bawah ini :

Public Sub shadow(kontrol As Control)
Dim X As Integer
Dim Y As Integer
Const warna = &H404040
Const lebar = 3
X = Me.DrawWidth
Y = ScaleMode
Me.ScaleMode = 3
Me.DrawWidth = 1
Me.Line (kontrol.Left + lebar, kontrol.Top + lebar)-Step(kontrol.Width, _
kontrol.Height), warna, BF
Me.DrawWidth = X
Me.ScaleMode = Y
End Sub

setelah itu, pada prosedur Form_Paint inisilisasi kontrol yang anda ingin berikan efek shadow, contoh :

Private Sub Form_Paint()
shadow( Command1)
shadow (Text1)
End Sub

selamat mencoba