'X y Y el centro, RX el radio en X, RY el radio en Y, IA angulo inicial, FA angulo final
Sub cCircle(ByVal X As Integer, ByVal Y As Integer, ByVal RX As Integer, ByVal RY As Integer, ByVal IA As Integer, ByVal FA As Integer)
    pi = 3.141654
    For I = FA To IA Step -1
        aux = 2 * pi * (I / 360)
        Me.PSet (X + RX * Sin(aux), Y - RY * Cos(aux))
    Next
End Sub
 

Dim contador as integer
Dim s as string
 
private sub Comm1_OnComm()
    if comm1.commevent=comevreceive then 'Si se ha recibido un caracter.
        timer1.enabled = true    ' se habilita el timer.
        contador=0 'El tiempo de espera se renueva
        s = s & comm1.input 'Se obtiene el siguiente caracter
        'Aquí proceso el caracter recibido.
        ' Cuando se reciban tdos los caracteres se inhabilita el timer.
    end if
end sub
 
private sub timer1_Timer()
    contador=contador+1 'cada vez que de un Tick, aumentara en 1
    if contador=5 then ' el tiempo de espera se agoto, la cadena se reinicia
        s=""   ' Vacía la cadena de recepción.
        contador=0 'el tiempo de espera se renueva
        timer1.enabled=false 'Se desactiva el timer
    end if
end sub
 

dim cTime as Long
 
cTime=getTickCount + 100
while True
  doevents
  if getTickCount  >= cTime then
    Var=Var + 1
    cTime=getTickCount + 100
  end if
wend
 

Dim konami As Byte
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub