Public ReadOnly Property VideoSize() As Size
        Get
            Dim strReturn As String = "", strsSplitted() As String
            If MCIExec("where " + AliasForFile + " destination max", strReturn) _
              Then
                strsSplitted = strReturn.Split(" "c)
                Return New Size(Convert.ToInt32(strsSplitted(2)), _
                  Convert.ToInt32(strsSplitted(3)))
            Else
                Return New Size(0, 0)
            End If
        End Get
    End Property

Declare Function mciSendStringA Lib "winmm.dll" (command As String, _
   buffer As StringBuilder, bufferSize As Int32, _
   hwndCallback As IntPtr) As Int32
 
' ...
Dim a As New StringBuilder(256)
if mciSendString("where videostueck destination max", a, a.Length, 0) then
  MessageBox.Show(a.ToString())
end if

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.