Dim spUIC As UIControl Set spUIC = New UIControl Call spUIC.CreateFromScreenPoint(x1, y1) TxtResult.Text = spUIC.value If (TxtResult.Text = "") Then TxtResult.Text = spUIC.Name End If |
|
|
|
WCaptureX component > UIControl Interface >
Visual Basic 6 Example |