Advertisement
albusmw

Untitled

Feb 21st, 2021
1,385
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.54 KB | None | 0 0
  1. Option Explicit On
  2. Option Strict On
  3.  
  4. Namespace QHYCamera
  5.  
  6.     Public Class QHY
  7.  
  8.         Public Shared Function BeginQHYCCDLive(ByVal handle As IntPtr) As UInt32
  9.             Dim Args As New Hashtable
  10.             Args.Add("<FunctionName>", "BeginQHYCCDLive")
  11.             Args.Add("handle", handle)
  12.             Args.Add("<CallStart>", Now)
  13.             Dim RetVal As UInt32 = QHY_DLL.QHYCamera.BeginQHYCCDLive(handle)
  14.             Args.Add("<CallEnd>", Now)
  15.             Args.Add("<returns>", RetVal)
  16.             Return RetVal
  17.         End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement