[VB6] combo e font

[marcio_hack]

Salve sto facendo un piccolo text editor,ho messo un combo con i nomi dei font,ma come faccio ogni volta che viene scrollato il combo ( e viene cambiato il font) ad applicarlo al text? (ho provato Combo1_Change() ma funziona solo quano il valore cambia da tastiera) inoltre come faccio a far apparire il primo font come primo text del combo invece di farlo rimanere bianco?

codice:

Private Sub Combo1_Change()
  On Error Resume Next
  Text1.Font = Combo1.Text
End Sub



Private Sub Form_Load()
Dim i, a
  For i = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(i)
  Next
  For a = 1 To 50
    If a = 1 Then
      Combo2.Text = "0"
    End If
    Combo2.AddItem a
  Next

End Sub