Esta función nos permite saber si nuestro programa está corriendo desde la consola de comandos o si contiene una interfaz gráfica (ventana de windows), si está corriendo desde una ventana propia (no la consola de comandos) la variable tmp contiene null, de lo contrario se asigna un valor (cero, aunque puede ser otro, pero no null).
Public Function runningfromconsole() As Boolean
Dim tmp As String
Try
tmp = Console.CursorLeft.ToString().Trim
Catch exp As Exception
tmp = Nothing
End Try
If tmp.IsNullOrEmpty(tmp) = True Then
Return False
Else
Return True
End If
End Function