Postada em 28/03/2012 08:13 hs
CECCHT
o colega já explicou se vc deseja selecionar no combo, e ja sair tudo pronto então coloque tudo no evento click do combo, seja lá o que for.
ex:
Private Sub Combobox_Click()
Select Case Combo1.List(Combo1.ListIndex)
Case "I"
Text1.Text = "25"
Case "II"
Text2.Text = "30"
Case "III"
Text3.Text = "40"
Case "IV"
Text4.Text = "50"
Ens Select
TxtSoma.Text = CDbl(Text1.Text) + CDbl(Text2.Text)
End Sub
|
