Const RussianRoubleRate = 28.12124
 Const CanadianDollarRate = 1.143958
 Const EuroRate = 0.822647
 Const SouthKoreanWonRate = 1708.76
 Const ThaiBahtRate = 68.6
 Dim result As Double
 
 Private Sub Form_Load()
 
               
                                   'List of the currencys to be used in the list box
    Combo1.AddItem ("Russian Rouble")
    Combo1.AddItem ("Canadian Dollar")
    Combo1.AddItem ("Euro")
    Combo1.AddItem ("South Korean Won")
    Combo1.AddItem ("Thai baht")

End Sub
 
Private Sub Command7_Click()
                                   'Adds the numbers together
If Combo1.ListIndex = 0 Then       'Selects the appropiate exchange rate
  If Text2.Text <> "" Then
    result = Val(Text2.Text) * RussianRoubleRate
    Text1.Text = result
    Else
    MsgBox ("no value to convert") 'Displays message box telling the user that they
  End If                           'have not entered any data
End If


If Combo1.ListIndex = 1 Then       'Selects the appropiate exchange rate
  If Text2.Text <> "" Then
    result = Val(Text2.Text) * CanadianDollarRate
    Text1.Text = result
    Else
    MsgBox ("no value to convert")
  End If
End If

If Combo1.ListIndex = 2 Then        'Selects the appropiate exchange rate
  If Text2.Text <> "" Then
    result = Val(Text2.Text) * EuroRate
    Text1.Text = result
    Else
    MsgBox ("no value to convert")
  End If
End If

If Combo1.ListIndex = 3 Then         'Selects the appropiate exchange rate
  If Text2.Text <> "" Then
    result = Val(Text2.Text) * SouthKoreanWonRate
    Text1.Text = result
    Else
    MsgBox ("no value to convert")
  End If
End If

If Combo1.ListIndex = 4 Then         'Selects the appropiate exchange rate
  If Text2.Text <> "" Then
    result = Val(Text2.Text) * ThaiBahtRate
    Text1.Text = result
    Else
    MsgBox ("no value to convert")
  End If
End If
  
  End Sub




Private Sub Image1_Click()

End Sub