From: No@mail.net   
      
   Randy ,   
    I think I got the code right but it not working this is what I have so far.   
      
   Ray   
      
   3 text boxes 1 command button   
      
   Const WM_CAP As Integer = &H400   
      
   Const WM_CAP_GET_STATUS As Long = WM_CAP + 54   
      
   Private Type POINTAPI   
     x As Long   
     y As Long   
   End Type   
      
   Private Type CAPSTATUS   
      uiImageWidth As Long   
      uiImageHeight As Long   
      fLiveWindow As Long   
      fOverlayWindow As Long   
      fScale As Long   
      ptScroll As POINTAPI   
      fUsingDefaultPalette As Long   
      fAudioHardware As Long   
      fCapFileExists As Long   
      dwCurrentVideoFrame As Long   
      dwCurrentVideoFramesDropped As Long   
      dwCurrentWaveSamples As Long   
      dwCurrentTimeElapsedMS As Long   
      hPalCurrent As Long   
      fCapturingNow As Long   
      dwReturn As Long   
      wNumVideoAllocated As Long   
      wNumAudioAllocated As Long   
   End Type   
      
   Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _   
       (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _   
       lParam As Any) As Long   
      
   Dim cap As CAPSTATUS   
      
   Private Sub Command1_Click()   
   Dim success As Long   
      
   success = SendMessage(hwnd, WM_CAP_GET_STATUS, Len(cap), cap)   
      
   If success <> 0 Then   
      Text1.Text = "True"   
      Text2.Text = cap.uiImageWidth   
      Text3.Text = cap.uiImageHeight   
   Else   
      Text1.Text = "False"   
      Text2.Text = 0   
      Text3.Text = 0   
   End If   
      
      
   End Sub   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)