9 Maret 2012

memwarnani progressbar

1 module
1 progressbar1 module
 
 Private Declare Function SendNotifyMessage Lib "user32.dll" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetPrgColor(Prg As ProgressBar, ForeColor As OLE_COLOR, BackColor As OLE_COLOR)
SendNotifyMessage Prg.hwnd, (&H400 + 9), 0, ForeColor
... SendNotifyMessage Prg.hwnd, (&H2000 + 1), 0, BackColor
End Sub

private sub form_load()
SetPrgColor ProgressBar1, vbYellow, vbRed
end sub
progressbar

0 komentar:

cursor: url("http://i137.photobucket.com/albums/q210/kyawsawdin/FireRed.gif"), default;

ShoutMix chat widget