# Visual Basic Help

**URL:** https://forum.kirupa.com/t/visual-basic-help/112566
**Category:** Uncategorized
**Created:** [June 9, 2004, 8:41am UTC](https://forum.kirupa.com/t/visual-basic-help/112566 "2004-06-09T08:41:12Z")
**Posts on this page:** 1
**Page:** 1

<div class="post-metadata">

### Author: ![CurryCricketer](https://avatars.discourse-cdn.com/v4/letter/c/9dc877/32.png) [@CurryCricketer](https://forum.kirupa.com/u/CurryCricketer)
#### Post date: [June 9, 2004, 8:41am UTC](https://forum.kirupa.com/t/visual-basic-help/112566/1 "2004-06-09T08:41:12Z")

</div>

“So if you’re lonely, you know i’m here waiting for you”

Hi i am trying to call a Public Sub is in Visual Basic but each time i try to call it i get “ByRef arugment type mismatch”.

Does any one know how to fix this???  
Here is the code

[COLOR=Blue]Public Sub Convert(lstCountryTo As ListBox, lstCountryFrom As ListBox, txtHours As TextBox, txtMinutes As TextBox, lstAMPM As ListBox, lblWhereTime As Label, lblFinTime As Label, ZoneF As Double, ZoneT As Double, Time As Date)

Dim Hours, Mins As Double  
Dim Time As Date

Hours = txtHours.Text  
Mins = txtMinutes.Text  
FinTime = lblFinTime.Caption  
FinTime = Format(Time, “hh:mm”)

Select Case lstAMPM.Text  
Case “PM”  
If Hours = 12 Then  
FinTime = TimeSerial(0, Mins, 0)  
Else  
FinTime = TimeSerial((Hours + 12), Mins, 0)  
End If  
Case “AM”  
FinTime = TimeSerial(Hours, Mins, 0)  
End Select

Call ZoneNum(lstCountryFrom, lstCountryTo, ZoneF, ZoneT)

Select Case (ZoneF - ZoneT)  
Case Is = 1000  
FinTime = DateAdd(“h”, -10, FinTime)  
End Select

End Sub[/COLOR]

[COLOR=Red]Private Sub cmdConvert\_Click()

Call Convert(lstCountryTo, lstCountryFrom, txtHours, txtMinutes, lstAMPM, lblWhereTime, lblFinTime, ZoneF, ZoneT, Time)

End Sub[/COLOR]

thankyou