Dim lCountryCode As Long
Dim szCountyCode As String
If Not ltmmCapture.TVTuner Is Nothing Then
ltmmCapture.TVTuner.CountryCode = 1
lCountryCode = ltmmCapture.TVTuner.CountryCode
szCountyCode = "Country code is " + CStr(lCountryCode)
MsgBox szCountyCode
End If