I use this code in VB6
does anyone know how to do this in VB.net? Thanks!
Code:
Private Declare Function CeGetDeviceId Lib "ceutil" () As Long
Public Function getActivesyncStatus()
Select Case CeGetDeviceId()
Case 0
lblActivesyncStatus.Caption = " Please connect the device"
Case 1
lblActivesyncStatus.Caption = " Guest device connected"
Case Else
lblActivesyncStatus.Caption = " Device connected"
End Select
End Function
Private Sub Timer1_Timer()
Call getActivesyncStatus
End Sub