llenando barrita

[MeGo85]

estuve por ahi leyendo un tutorial de como usar eso de line de circle y esasa cosas y se me ocurrio hacer
este codigo...

Option Explicit
Dim i As Integer
' ********************************
' *              MeGo            *
' ********************************
'----------------------------------
'Dibujar un Picture Box de 6015 x 255
'(propiedad Width a 6015 Propiedad Height a 255)
'Propiedad BorderStyle 0 - None
'Añadir un Label
'Añadir un timer con la propiedad Interval a 110


Private Sub Timer1_Timer()
    Form1.BackColo r = vbBlack
    Label1 = "Cargando...  " & i & "%"
    i = i + 1
    Show
    Dim x As Single
    Dim y As Single
    y = 15
    Picture1.Line Step(x, y)-Step(x + 3, y - 30), vbBlue, BF
    If i = 100 Then
      Timer1.Enabled = False
      Label1 = "Completado  " & i & "%"
      MsgBox "Ya se lleno la barrita...", 0, "COMPLETADO...  (MeGo)"
      Unload Me
    End If
End Sub

en la linea :  Picture1.Line Step(x, y)-Step(x + 3, y - 30), vbBlue, BF    ,  lo que hace esa B y esa F es
dibujar un rectangulo y rellenarlo, prueven por ejemplo, colocando solo la B, y veran que se dibujan
los triangulos pero no tienen un fondo sólido.

bueno espero que este pedacito de codigo les sirva de algo...
 

[ranefi]

Muy buen código MeGo85, me da mucho gusto que tienes la disponibilidad de ayudar. Espero y sigas así   : )